Equirectangular approximation to distance on a great circle
Time bar (total: 10.4s)
| 1× | search |
| Probability | Valid | Unknown | Precondition | Infinite | Domain | Can't | Iter |
|---|---|---|---|---|---|---|---|
| 0% | 0% | 99.8% | 0.2% | 0% | 0% | 0% | 0 |
| 100% | 99.8% | 0% | 0.2% | 0% | 0% | 0% | 1 |
Compiled 34 to 16 computations (52.9% saved)
| 715.0ms | 6 585× | 0 | valid |
| 612.0ms | 1 671× | 1 | valid |
ival-add: 275.0ms (28.9% of total)ival-hypot: 153.0ms (16.1% of total)ival-cos: 134.0ms (14.1% of total)ival-mult: 133.0ms (14% of total)ival-div: 107.0ms (11.2% of total)ival-sub: 84.0ms (8.8% of total)adjust: 52.0ms (5.5% of total)ival-true: 6.0ms (0.6% of total)exact: 5.0ms (0.5% of total)ival-assert: 3.0ms (0.3% of total)| Ground Truth | Overpredictions | Example | Underpredictions | Example | Subexpression |
|---|---|---|---|---|---|
| 173 | 0 | - | 1 | (-2424598.0743629923 2.0665419357402391e-231 4.838356513683295e-159 -4.28589792835786e-207 1.7698196563029394e-292) | (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) |
| 64 | 131 | (4.215535923152566e+136 -1.0586810724395229e-106 -2.88708715374887e-167 -4.6328285086182585e-156 6.8178295446851725e+115) | 0 | - | (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) |
| 0 | 0 | - | 0 | - | (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) |
| 0 | 0 | - | 0 | - | lambda2 |
| 0 | 0 | - | 0 | - | (+.f64 phi1 phi2) |
| 0 | 0 | - | 0 | - | phi2 |
| 0 | 0 | - | 0 | - | (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) |
| 0 | 0 | - | 0 | - | (-.f64 lambda1 lambda2) |
| 0 | 0 | - | 0 | - | (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) |
| 0 | 0 | - | 0 | - | R |
| 0 | 0 | - | 0 | - | lambda1 |
| 0 | 0 | - | 0 | - | phi1 |
| 0 | 0 | - | 0 | - | (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
| 0 | 0 | - | 0 | - | #s(literal 2 binary64) |
| 0 | 0 | - | 0 | - | (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)) |
| 0 | 0 | - | 0 | - | (-.f64 phi1 phi2) |
| 0 | 0 | - | 0 | - | (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) |
| Operator | Subexpression | Explanation | Count | |
|---|---|---|---|---|
cos.f64 | (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) | sensitivity | 195 | 0 |
sqrt.f64 | (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) | oflow-rescue | 169 | 0 |
| ↳ | (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) | overflow | 111 | |
| ↳ | (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) | overflow | 108 | |
| ↳ | (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) | overflow | 169 | |
sqrt.f64 | (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) | uflow-rescue | 3 | 0 |
| ↳ | (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) | underflow | 16 | |
| ↳ | (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) | underflow | 12 | |
| ↳ | (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) | underflow | 3 |
| Predicted + | Predicted - | |
|---|---|---|
| + | 106 | 1 |
| - | 116 | 33 |
| Predicted + | Predicted Maybe | Predicted - | |
|---|---|---|---|
| + | 106 | 0 | 1 |
| - | 116 | 0 | 33 |
| number | freq |
|---|---|
| 0 | 34 |
| 1 | 77 |
| 2 | 145 |
| Predicted + | Predicted Maybe | Predicted - | |
|---|---|---|---|
| + | 1 | 0 | 0 |
| - | 0 | 0 | 0 |
| 124.0ms | 368× | 1 | valid |
| 39.0ms | 144× | 0 | valid |
Compiled 501 to 72 computations (85.6% saved)
ival-sub: 29.0ms (25% of total)ival-mult: 23.0ms (19.8% of total)ival-cos: 23.0ms (19.8% of total)adjust: 12.0ms (10.3% of total)ival-hypot: 12.0ms (10.3% of total)ival-add: 9.0ms (7.7% of total)ival-div: 6.0ms (5.2% of total)ival-true: 1.0ms (0.9% of total)ival-assert: 0.0ms (0% of total)exact: 0.0ms (0% of total)| 1× | egg-herbie |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 149 | 667 |
| 1 | 357 | 661 |
| 2 | 923 | 645 |
| 3 | 4473 | 645 |
| 4 | 7906 | 645 |
| 0 | 17 | 32 |
| 0 | 28 | 32 |
| 1 | 43 | 32 |
| 2 | 88 | 32 |
| 3 | 302 | 32 |
| 4 | 1046 | 32 |
| 5 | 3384 | 32 |
| 6 | 7323 | 32 |
| 0 | 8075 | 16 |
| 1× | iter limit |
| 1× | node limit |
| 1× | iter limit |
| 1× | node limit |
| Inputs |
|---|
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
| Outputs |
|---|
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
(*.f64 (hypot.f64 (-.f64 phi2 phi1) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(negabs R)
(sort lambda1 lambda2)
(sort phi1 phi2)
Compiled 32 to 17 computations (46.9% saved)
Compiled 0 to 5 computations (-∞% saved)
| Status | Accuracy | Program |
|---|---|---|
| ▶ | 60.7% | (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
Compiled 32 to 17 computations (46.9% saved)
| 1× | egg-herbie |
Found 4 expressions of interest:
| New | Metric | Score | Program |
|---|---|---|---|
| cost-diff | 0 | (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) | |
| cost-diff | 0 | (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) | |
| cost-diff | 128 | (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) | |
| cost-diff | 2880 | (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 17 | 155 |
| 0 | 28 | 155 |
| 1 | 43 | 155 |
| 2 | 88 | 155 |
| 3 | 302 | 155 |
| 4 | 1046 | 155 |
| 5 | 3384 | 155 |
| 6 | 7323 | 155 |
| 0 | 8075 | 122 |
| 1× | iter limit |
| 1× | node limit |
| 1× | iter limit |
| Inputs |
|---|
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
R |
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) |
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) |
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) |
(/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)) |
(+.f64 phi1 phi2) |
phi1 |
phi2 |
#s(literal 2 binary64) |
(*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) |
(-.f64 phi1 phi2) |
| Outputs |
|---|
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
(*.f64 (hypot.f64 (-.f64 phi2 phi1) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
R |
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) |
(hypot.f64 (-.f64 phi2 phi1) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) |
(fma.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 phi2 phi1) (-.f64 phi2 phi1))) |
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) |
(*.f64 (*.f64 (-.f64 lambda2 lambda1) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda2 lambda1) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) |
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) |
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) |
(/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)) |
(/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) |
(+.f64 phi1 phi2) |
(+.f64 phi2 phi1) |
phi1 |
phi2 |
#s(literal 2 binary64) |
(*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) |
(*.f64 (-.f64 phi2 phi1) (-.f64 phi2 phi1)) |
(-.f64 phi1 phi2) |
Found 4 expressions of interest:
| New | Metric | Score | Program |
|---|---|---|---|
| accuracy | 0.17578125 | (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) | |
| accuracy | 0.1875 | (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) | |
| accuracy | 13.762816874150609 | (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) | |
| accuracy | 40.01696039763474 | (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) |
| 56.0ms | 184× | 1 | valid |
| 9.0ms | 72× | 0 | valid |
Compiled 312 to 36 computations (88.5% saved)
ival-mult: 11.0ms (24.2% of total)ival-cos: 11.0ms (24.2% of total)adjust: 6.0ms (13.2% of total)ival-hypot: 6.0ms (13.2% of total)ival-sub: 4.0ms (8.8% of total)ival-add: 4.0ms (8.8% of total)ival-div: 3.0ms (6.6% of total)ival-assert: 0.0ms (0% of total)ival-true: 0.0ms (0% of total)exact: 0.0ms (0% of total)| Inputs |
|---|
#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ()) |
#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ()) |
#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ()) |
#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ()) |
#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ()) |
#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ()) |
| Outputs |
|---|
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) (taylor 0 lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) (taylor inf lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) (taylor inf lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (taylor 0 phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt phi2 (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (pow phi2 2) (taylor inf phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (pow phi2 2) (taylor -inf phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))) (taylor -inf phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2)))) (taylor -inf phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2)))) (taylor -inf phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (taylor 0 phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor 0 phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (taylor 0 phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt phi1 (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (pow phi1 2) (taylor inf phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (pow phi1 2) (taylor -inf phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))) (taylor -inf phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1)))) (taylor -inf phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1)))) (taylor -inf phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) (taylor 0 lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) (taylor inf lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) (taylor inf lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ()) |
15 calls:
| Time | Variable | Point | Expression | |
|---|---|---|---|---|
| 8.0ms | phi1 | @ | 0 | ((sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (cos (/ (+ phi1 phi2) 2)) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) |
| 5.0ms | phi2 | @ | 0 | ((sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (cos (/ (+ phi1 phi2) 2)) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) |
| 4.0ms | phi1 | @ | -inf | ((sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (cos (/ (+ phi1 phi2) 2)) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) |
| 4.0ms | lambda1 | @ | 0 | ((sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (cos (/ (+ phi1 phi2) 2)) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) |
| 4.0ms | phi2 | @ | inf | ((sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (cos (/ (+ phi1 phi2) 2)) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) |
| 1× | egg-herbie |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 884 | 10001 |
| 1 | 2974 | 9253 |
| 2 | 7953 | 9253 |
| 0 | 8120 | 8635 |
| 1× | iter limit |
| 1× | node limit |
| Inputs |
|---|
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) |
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) |
(+ (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) |
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) |
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) |
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) |
(cos (* 1/2 phi1)) |
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) |
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) |
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(pow phi2 2) |
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))) |
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2)))))) |
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2)))))) |
(* R phi2) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) |
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) |
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) |
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) |
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) |
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) |
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) |
(* -1 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(pow phi2 2) |
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))) |
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2)))) |
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2)))) |
(* -1 (* R phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) |
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) |
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) |
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)) |
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)) |
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)) |
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) |
(+ (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) |
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))) |
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))) |
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))) |
(cos (* 1/2 phi2)) |
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) |
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) |
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(pow phi1 2) |
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))) |
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))))) |
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))))) |
(* R phi1) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) |
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) |
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) |
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) |
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) |
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) |
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) |
(* -1 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(pow phi1 2) |
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))) |
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1)))) |
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1)))) |
(* -1 (* R phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) |
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) |
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) |
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)) |
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)) |
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)) |
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) |
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
| Outputs |
|---|
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) lambda1) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (fma.f64 (neg.f64 (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) lambda1) (*.f64 (fma.f64 (neg.f64 (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda1 (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) |
(fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) |
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(fma.f64 (*.f64 #s(literal -2 binary64) lambda1) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda2 lambda1)) lambda1 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda2 lambda1)) lambda1 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 R (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 R (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) (*.f64 (*.f64 (*.f64 R lambda1) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (fma.f64 (neg.f64 (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (*.f64 R (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (fma.f64 (neg.f64 (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) lambda1) (*.f64 (fma.f64 (neg.f64 (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda1 (*.f64 (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 R (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)))) |
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) |
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(fma.f64 (*.f64 #s(literal -2 binary64) lambda1) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))) |
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda2 lambda1)) lambda1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))) |
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda2 lambda1)) lambda1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda2 lambda1))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda2 lambda1)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda2 (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda2 lambda1)))) lambda1) |
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 lambda2 lambda1)) #s(literal -2 binary64) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 lambda2 lambda1)) #s(literal -2 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 lambda1)) (+.f64 (/.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda1) lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 lambda2 lambda1)) #s(literal -2 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 lambda1)) (+.f64 (/.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda1) lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 lambda1 lambda1)) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (neg.f64 R) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda2 lambda1)) (*.f64 R (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (neg.f64 R) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda2 lambda1)) (*.f64 R (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 (neg.f64 R) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda2 lambda1)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 R lambda2) (/.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (/.f64 (*.f64 R (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda1)) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (*.f64 R (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda1) |
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 lambda2 lambda1)) #s(literal -2 binary64) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 lambda2 lambda1)) #s(literal -2 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 lambda1)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 lambda2 lambda1)) #s(literal -2 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 lambda1)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 lambda1 lambda1)) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda2 lambda1))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda2 lambda1))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda2 lambda1))) lambda1) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda2 lambda1)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) lambda1))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1))) lambda1))) |
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 lambda2 lambda1)) #s(literal -2 binary64) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (neg.f64 lambda1))) lambda1)) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (neg.f64 lambda1))) lambda1)) (*.f64 lambda1 lambda1)) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (neg.f64 R) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda2 lambda1)) (*.f64 R (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 R (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (neg.f64 lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 R (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) (neg.f64 lambda1))) (neg.f64 lambda1)))) |
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 lambda2 lambda1)) #s(literal -2 binary64) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (fma.f64 (neg.f64 (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1) (*.f64 (*.f64 #s(literal 2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) lambda1)) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (fma.f64 (neg.f64 (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1) (*.f64 (*.f64 #s(literal 2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) lambda1)) (*.f64 lambda1 lambda1)) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda2 lambda1) (neg.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda2 lambda1) (neg.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda2 lambda1) (neg.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) phi2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (fma.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal -1/4 binary64) (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64))) phi2 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (+.f64 (fma.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal -1/4 binary64) (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64))) (*.f64 (fma.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal -1/4 binary64) (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64))) (/.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) phi2)))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) |
(fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)) |
(+ (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(fma.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) phi2 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) |
(+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(fma.f64 (fma.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) phi2 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1))) phi2 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) |
(+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(fma.f64 (fma.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (fma.f64 phi2 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 1 binary64)) phi2 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1))) phi2 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R phi2) (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (fma.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal -1/4 binary64) (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64))) phi2 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (+.f64 (fma.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal -1/4 binary64) (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64))) (*.f64 (fma.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal -1/4 binary64) (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64))) (/.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) phi2))))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) |
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) |
(fma.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) |
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) |
(fma.f64 (fma.f64 (*.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) phi2 (*.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) |
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) |
(fma.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (fma.f64 phi2 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) phi2 (*.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) |
(cos (* 1/2 phi1)) |
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) |
(fma.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64) (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) |
(fma.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (-.f64 lambda1 lambda2) (*.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi2) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal -1/8 binary64))) phi2)) phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))) phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 phi1 (pow.f64 phi2 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2) phi2))) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))) phi2) |
(pow phi2 2) |
(*.f64 phi2 phi2) |
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))) |
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal -2 binary64) #s(literal 1 binary64)) (*.f64 phi2 phi2)) |
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2)))))) |
(*.f64 (+.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2) phi2) (*.f64 (/.f64 phi1 phi2) (/.f64 phi1 phi2))) (fma.f64 (/.f64 phi1 phi2) #s(literal -2 binary64) #s(literal 1 binary64))) (*.f64 phi2 phi2)) |
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2)))))) |
(*.f64 (+.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2) phi2) (*.f64 (/.f64 phi1 phi2) (/.f64 phi1 phi2))) (fma.f64 (/.f64 phi1 phi2) #s(literal -2 binary64) #s(literal 1 binary64))) (*.f64 phi2 phi2)) |
(* R phi2) |
(*.f64 R phi2) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 R phi2)) (-.f64 R (*.f64 R (/.f64 phi1 phi2)))) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(*.f64 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 phi1 (pow.f64 phi2 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2) phi2)))) R)) phi2) |
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) |
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) |
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) |
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) |
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 phi2) |
(neg.f64 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)) #s(literal -1/2 binary64) phi1) phi2)) (neg.f64 phi2)) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 phi1 phi2) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi2))) phi2)) (neg.f64 phi2)) |
(pow phi2 2) |
(*.f64 phi2 phi2) |
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))) |
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal -2 binary64) #s(literal 1 binary64)) (*.f64 phi2 phi2)) |
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi1 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)) (neg.f64 phi2))) phi2)) (*.f64 phi2 phi2)) |
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi1 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)) (neg.f64 phi2))) phi2)) (*.f64 phi2 phi2)) |
(* -1 (* R phi2)) |
(*.f64 (neg.f64 phi2) R) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (*.f64 R (/.f64 phi1 phi2)))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 R phi2)) #s(literal -1/2 binary64) (*.f64 R phi1)) phi2)) (neg.f64 phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 R phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 phi1 phi2) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (neg.f64 phi2))) phi2)) (neg.f64 phi2)) |
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) |
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) |
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) |
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) |
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (fma.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal -1/4 binary64) (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64))) phi1 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi2))))) phi1 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (+.f64 (fma.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal -1/4 binary64) (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64))) (*.f64 (fma.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal -1/4 binary64) (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64))) (/.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) phi1)))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) |
(+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) |
(fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) |
(+ (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(fma.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) phi1 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) |
(+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(fma.f64 (fma.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) phi1 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi2))) phi1 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) |
(+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(fma.f64 (fma.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (fma.f64 phi1 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) #s(literal 1 binary64)) phi1 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi2))) phi1 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) phi1) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (fma.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal -1/4 binary64) (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64))) phi1 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (+.f64 (fma.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal -1/4 binary64) (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64))) (*.f64 (fma.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal -1/4 binary64) (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64))) (/.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) phi1))))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R)) |
(* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) |
(*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) |
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))) |
(fma.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) |
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))) |
(fma.f64 (fma.f64 (*.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) phi1 (*.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) |
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))) |
(fma.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (fma.f64 phi1 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) phi1 (*.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) |
(fma.f64 (fma.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64) (*.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/8 binary64))) phi1 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) |
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))) |
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))) |
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) |
(fma.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (-.f64 lambda1 lambda2) (*.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi1) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal -1/8 binary64))) phi1)) phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1) phi1)) #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 phi2 (pow.f64 phi1 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1) phi1))) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) phi1) |
(pow phi1 2) |
(*.f64 phi1 phi1) |
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))) |
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -2 binary64) #s(literal 1 binary64)) (*.f64 phi1 phi1)) |
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))))) |
(*.f64 (+.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1) phi1) (*.f64 (/.f64 phi2 phi1) #s(literal -2 binary64))) (fma.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1) #s(literal 1 binary64))) (*.f64 phi1 phi1)) |
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))))) |
(*.f64 (+.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1) phi1) (*.f64 (/.f64 phi2 phi1) #s(literal -2 binary64))) (fma.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1) #s(literal 1 binary64))) (*.f64 phi1 phi1)) |
(* R phi1) |
(*.f64 R phi1) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(*.f64 (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) phi1) (*.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 R phi1)) (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R)) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(*.f64 (fma.f64 (neg.f64 R) (/.f64 phi2 phi1) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 phi2 (pow.f64 phi1 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1) phi1)))) R)) phi1) |
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) |
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) |
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) |
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) |
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)) #s(literal -1/2 binary64) phi2) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 phi2 phi1) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi1))) phi1)) (neg.f64 phi1)) |
(pow phi1 2) |
(*.f64 phi1 phi1) |
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))) |
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -2 binary64) #s(literal 1 binary64)) (*.f64 phi1 phi1)) |
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) |
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) |
(* -1 (* R phi1)) |
(*.f64 (neg.f64 phi1) R) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(*.f64 (neg.f64 phi1) (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R)) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 R phi1)) #s(literal -1/2 binary64) (*.f64 R phi2)) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 R phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 phi2 phi1) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (neg.f64 phi1))) phi1)) (neg.f64 phi1)) |
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) |
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) |
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) |
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) |
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) lambda2) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (fma.f64 (neg.f64 (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) lambda1) (*.f64 (fma.f64 (neg.f64 (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda2 (*.f64 (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) |
(fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) |
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(fma.f64 (*.f64 #s(literal -2 binary64) lambda1) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda1 lambda2)) lambda2 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda1 lambda2)) lambda2 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(fma.f64 R (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (fma.f64 (neg.f64 (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (fma.f64 (neg.f64 (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) lambda1) (*.f64 (fma.f64 (neg.f64 (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda2 (*.f64 (neg.f64 (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(fma.f64 (*.f64 #s(literal -2 binary64) lambda1) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) |
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda1 lambda2)) lambda2 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) |
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda1 lambda2)) lambda2 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda1 (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 lambda2 lambda2))) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)))) lambda2) |
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 lambda1 lambda2)) #s(literal -2 binary64) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 lambda1 lambda2)) #s(literal -2 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 (/.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 lambda1 lambda2)) #s(literal -2 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 (/.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 lambda2 lambda2)) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (neg.f64 R) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (*.f64 R (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (neg.f64 R) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (*.f64 R (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 (neg.f64 R) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 R lambda1) (/.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (pow.f64 lambda2 #s(literal 3 binary64))) (*.f64 (/.f64 (/.f64 R lambda2) lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (*.f64 R (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda2) |
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 lambda1 lambda2)) #s(literal -2 binary64) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 lambda1 lambda2)) #s(literal -2 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 lambda1 lambda2)) #s(literal -2 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 lambda2 lambda2)) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(*.f64 (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2) (neg.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2) |
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(*.f64 (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2) (neg.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2) |
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(*.f64 (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2) (neg.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) lambda2))) |
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 lambda1 lambda2)) #s(literal -2 binary64) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64) (/.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (neg.f64 lambda2))) lambda2)) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64) (/.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (neg.f64 lambda2))) lambda2)) (*.f64 lambda2 lambda2)) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 R) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (*.f64 R (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 R (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (neg.f64 lambda2)))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 R (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) (neg.f64 lambda2))) (neg.f64 lambda2)))) |
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 lambda1 lambda2)) #s(literal -2 binary64) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (fma.f64 (neg.f64 (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) lambda2)) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (fma.f64 (neg.f64 (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) lambda2)) (*.f64 lambda2 lambda2)) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 17 | 128 |
| 0 | 28 | 86 |
| 1 | 97 | 86 |
| 2 | 723 | 86 |
| 0 | 8951 | 76 |
| 1× | iter limit |
| 1× | node limit |
| 1× | iter limit |
| Inputs |
|---|
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) |
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) |
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) |
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) |
| Outputs |
|---|
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
Compiled 29 585 to 2 818 computations (90.5% saved)
24 alts after pruning (24 fresh and 0 done)
| Pruned | Kept | Total | |
|---|---|---|---|
| New | 668 | 24 | 692 |
| Fresh | 0 | 0 | 0 |
| Picked | 1 | 0 | 1 |
| Done | 0 | 0 | 0 |
| Total | 669 | 24 | 693 |
| Status | Accuracy | Program |
|---|---|---|
| 38.3% | (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (exp.f64 (log.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal -1/2 binary64))) (-.f64 lambda1 lambda2)))))) | |
| 51.6% | (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) #s(approx (cos (/ (+ phi1 phi2) 2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) | |
| 40.5% | (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (fma.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) phi2 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1))) phi2 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) | |
| 39.8% | (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) phi2 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) | |
| 21.7% | (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) | |
| ▶ | 39.6% | (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) |
| 26.1% | (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))) | |
| ▶ | 71.1% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) |
| 68.0% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) | |
| 34.2% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) | |
| 54.9% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) | |
| 13.3% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)))))) | |
| ▶ | 20.1% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
| 20.5% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2))) | |
| 11.1% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) | |
| 32.6% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) | |
| 15.2% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (fma.f64 (neg.f64 R) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda2 lambda1)) (*.f64 R (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1)) | |
| 53.5% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) phi2)) | |
| 20.5% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) | |
| ▶ | 11.1% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
| 10.2% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) | |
| 20.1% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) | |
| 54.4% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi1) (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R))) | |
| ▶ | 32.7% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
Compiled 872 to 714 computations (18.1% saved)
| 1× | egg-herbie |
Found 18 expressions of interest:
| New | Metric | Score | Program |
|---|---|---|---|
| cost-diff | 0 | (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) | |
| cost-diff | 0 | (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) | |
| cost-diff | 128 | (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) | |
| cost-diff | 128 | (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) | |
| cost-diff | 0 | (neg.f64 lambda1) | |
| cost-diff | 0 | (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) | |
| cost-diff | 0 | #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) | |
| cost-diff | 0 | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) | |
| cost-diff | 0 | (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) | |
| cost-diff | 0 | (*.f64 R lambda1) | |
| cost-diff | 0 | (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) | |
| cost-diff | 0 | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) | |
| cost-diff | 0 | (*.f64 R phi2) | |
| cost-diff | 0 | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) | |
| cost-diff | 0 | (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) | |
| cost-diff | 0 | (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) | |
| cost-diff | 0 | #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) | |
| cost-diff | 0 | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 52 | 721 |
| 0 | 84 | 703 |
| 1 | 138 | 703 |
| 2 | 262 | 703 |
| 3 | 760 | 703 |
| 4 | 2610 | 703 |
| 5 | 8000 | 703 |
| 0 | 8005 | 607 |
| 1× | iter limit |
| 1× | node limit |
| 1× | iter limit |
| Inputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) |
R |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(*.f64 phi1 #s(literal 1/2 binary64)) |
phi1 |
#s(literal 1/2 binary64) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
(*.f64 R phi2) |
R |
phi2 |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(*.f64 R lambda1) |
R |
lambda1 |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)) |
(+.f64 phi2 phi1) |
phi2 |
phi1 |
#s(literal 1/2 binary64) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
R |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(neg.f64 lambda1) |
lambda1 |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)) |
(+.f64 phi2 phi1) |
phi2 |
phi1 |
#s(literal 1/2 binary64) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) |
R |
(sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) |
(-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) |
#s(literal 1 binary64) |
(/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1) |
(fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) |
phi2 |
#s(literal 2 binary64) |
(/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) |
(fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) |
(pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
(pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)) |
(+.f64 phi2 phi1) |
phi1 |
#s(literal 1/2 binary64) |
(*.f64 phi2 phi2) |
(neg.f64 phi1) |
(*.f64 phi1 phi1) |
| Outputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) |
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda2 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi1)) R) |
R |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda2 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi1)) |
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) |
(hypot.f64 (*.f64 (-.f64 lambda2 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi1) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) |
(*.f64 phi1 #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) phi1) |
phi1 |
#s(literal 1/2 binary64) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) |
(*.f64 R phi2) |
(*.f64 phi2 R) |
R |
phi2 |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda1 R))) |
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda1 R)) |
(*.f64 R lambda1) |
(*.f64 lambda1 R) |
R |
lambda1 |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)) |
(+.f64 phi2 phi1) |
phi2 |
phi1 |
#s(literal 1/2 binary64) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) R) |
R |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(neg.f64 lambda1) |
lambda1 |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)) |
(+.f64 phi2 phi1) |
phi2 |
phi1 |
#s(literal 1/2 binary64) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) |
(*.f64 (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (fma.f64 (/.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) phi2 (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) phi1)) phi1) phi1))) R) |
R |
(sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) |
(sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (fma.f64 (/.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) phi2 (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) phi1)) phi1) phi1))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (fma.f64 (/.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) phi2 (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) phi1)) phi1) phi1)) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) |
(*.f64 (fma.f64 (/.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) phi2 (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) phi1)) phi1) phi1) |
(-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) |
(-.f64 (/.f64 (fma.f64 #s(literal -2 binary64) phi2 (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) phi1)) phi1) #s(literal -1 binary64)) |
#s(literal 1 binary64) |
(/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1) |
(/.f64 (fma.f64 #s(literal 2 binary64) phi2 (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1) |
(fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) |
(fma.f64 #s(literal 2 binary64) phi2 (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) |
phi2 |
#s(literal 2 binary64) |
(/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) |
(/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) |
(fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) |
(fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) |
(pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
(pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)) |
(+.f64 phi2 phi1) |
phi1 |
#s(literal 1/2 binary64) |
(*.f64 phi2 phi2) |
(neg.f64 phi1) |
(*.f64 phi1 phi1) |
Found 18 expressions of interest:
| New | Metric | Score | Program |
|---|---|---|---|
| accuracy | 9.559883728169735 | (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) | |
| accuracy | 13.762816874150609 | (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) | |
| accuracy | 17.0550014011053 | (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) | |
| accuracy | 40.01696039763474 | (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) | |
| accuracy | 0.0546875 | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) | |
| accuracy | 0.1796875 | (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) | |
| accuracy | 13.762816874150609 | (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) | |
| accuracy | 51.907553972950964 | #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) | |
| accuracy | 0 | (*.f64 R lambda1) | |
| accuracy | 0.1953125 | (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) | |
| accuracy | 13.762816874150609 | (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) | |
| accuracy | 56.21602735809481 | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) | |
| accuracy | 0 | (*.f64 R phi2) | |
| accuracy | 43.06614035819184 | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) | |
| accuracy | 0 | (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) | |
| accuracy | 0.0546875 | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) | |
| accuracy | 0.14453125 | (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) | |
| accuracy | 23.797569670969438 | #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
| 193.0ms | 182× | 1 | valid |
| 32.0ms | 74× | 0 | valid |
Compiled 1 042 to 87 computations (91.7% saved)
ival-cos: 58.0ms (31.8% of total)ival-mult: 33.0ms (18.1% of total)adjust: 27.0ms (14.8% of total)ival-div: 26.0ms (14.2% of total)ival-hypot: 12.0ms (6.6% of total)ival-add: 9.0ms (4.9% of total)ival-pow2: 8.0ms (4.4% of total)ival-sub: 7.0ms (3.8% of total)ival-neg: 2.0ms (1.1% of total)ival-true: 0.0ms (0% of total)ival-assert: 0.0ms (0% of total)exact: 0.0ms (0% of total)| Inputs |
|---|
#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ()) |
#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ()) |
#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ()) |
#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ()) |
#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ()) |
#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ()) |
#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ()) |
#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ()) |
#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ()) |
#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ()) |
#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ()) |
#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ()) |
#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ()) |
#s(alt (neg.f64 lambda1) (patch (neg.f64 lambda1) #<representation binary64>) () ()) |
#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ()) |
#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ()) |
#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ()) |
#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ()) |
#s(alt (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ()) |
#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ()) |
| Outputs |
|---|
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (taylor 0 lambda1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi1)))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 lambda1) (taylor 0 lambda1) (#s(alt (neg.f64 lambda1) (patch (neg.f64 lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 lambda1) (taylor 0 lambda1) (#s(alt (neg.f64 lambda1) (patch (neg.f64 lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 lambda1) (taylor 0 lambda1) (#s(alt (neg.f64 lambda1) (patch (neg.f64 lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 lambda1) (taylor 0 lambda1) (#s(alt (neg.f64 lambda1) (patch (neg.f64 lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1))))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (- 1 (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ 1 (* -2 (/ (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (pow phi1 2)))) (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ 1 (* lambda1 (- (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))))) (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ 1 (* lambda1 (- (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))))) (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (taylor 0 lambda1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (* 2 (/ (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) phi1))) (taylor 0 lambda1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (* lambda1 (+ (* -1 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1))))) (taylor 0 lambda1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (* lambda1 (+ (* -1 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1))))) (taylor 0 lambda1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 phi1))) (taylor inf lambda1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor inf lambda1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1)))))))) (taylor inf lambda1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1))))))))) (taylor inf lambda1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 phi1))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 lambda1) (taylor inf lambda1) (#s(alt (neg.f64 lambda1) (patch (neg.f64 lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 lambda1) (taylor inf lambda1) (#s(alt (neg.f64 lambda1) (patch (neg.f64 lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 lambda1) (taylor inf lambda1) (#s(alt (neg.f64 lambda1) (patch (neg.f64 lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 lambda1) (taylor inf lambda1) (#s(alt (neg.f64 lambda1) (patch (neg.f64 lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (- (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 (pow phi1 2)))) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) (+ (* -1 (/ (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))) (pow lambda1 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))) (+ (* 2 (/ phi2 (* (pow lambda1 2) phi1))) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 (pow phi1 2))))))))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) (+ (* -1 (/ (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))) (pow lambda1 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))) (+ (* 2 (/ phi2 (* (pow lambda1 2) phi1))) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 (pow phi1 2))))))))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (taylor inf lambda1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 phi1))))) (taylor inf lambda1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -1 (/ (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1) (/ (pow phi2 2) phi1)) (pow lambda1 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 phi1)))))) (taylor inf lambda1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -1 (/ (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1) (/ (pow phi2 2) phi1)) (pow lambda1 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 phi1)))))) (taylor inf lambda1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor -inf lambda1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda1 (cos (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda1)) (* lambda2 (cos (* 1/2 phi1)))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 phi1))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 lambda1) (taylor -inf lambda1) (#s(alt (neg.f64 lambda1) (patch (neg.f64 lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 lambda1) (taylor -inf lambda1) (#s(alt (neg.f64 lambda1) (patch (neg.f64 lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 lambda1) (taylor -inf lambda1) (#s(alt (neg.f64 lambda1) (patch (neg.f64 lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 lambda1) (taylor -inf lambda1) (#s(alt (neg.f64 lambda1) (patch (neg.f64 lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (- (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 (pow phi1 2)))) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (- (* -1 (/ (- (* -1 (/ (- 1 (+ (* -1 (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1)))) lambda1)) (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))) lambda1)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (- (* -1 (/ (- (* -1 (/ (- 1 (+ (* -1 (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1)))) lambda1)) (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))) lambda1)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (taylor -inf lambda1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 phi1))))) (taylor -inf lambda1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 phi1)) (/ (pow phi2 2) (* lambda1 phi1)))) lambda1)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)))) (taylor -inf lambda1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 phi1)) (/ (pow phi2 2) (* lambda1 phi1)))) lambda1)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)))) (taylor -inf lambda1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor 0 phi2) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor 0 phi2) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor 0 phi2) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor 0 phi2) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda1 (cos (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1))))))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))))))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 phi2) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda1 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda1 (sin (* 1/2 phi1))))))) (taylor 0 phi2) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda1 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda1 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda1 (cos (* 1/2 phi1))))))))) (taylor 0 phi2) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (pow phi1 2) (* phi2 (+ (* 2 (/ 1 phi1)) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi2 (+ (* -1 (* (pow phi1 2) (+ (* 2 (/ 1 phi1)) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))) (* (pow phi1 2) (* phi2 (+ (/ 1 (pow phi1 2)) (/ (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi2 (+ (* -1 (* (pow phi1 2) (+ (* 2 (/ 1 phi1)) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))) (* phi2 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (pow phi1 2) (+ (/ 1 (pow phi1 2)) (/ (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (- 1 (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ 1 (* -1 (* phi2 (+ (* 2 (/ 1 phi1)) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ 1 (* phi2 (- (* phi2 (+ (/ 1 (pow phi1 2)) (/ (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (+ (* 2 (/ 1 phi1)) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ 1 (* phi2 (- (* phi2 (- (/ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)) (* -1 (+ (/ 1 (pow phi1 2)) (/ (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* 2 (/ 1 phi1)) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) phi1)) (taylor 0 phi2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) phi1)) (/ (* phi2 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) phi1)) (taylor 0 phi2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) phi1)) (* phi2 (+ (* -1 (* phi2 (+ (/ 1 phi1) (/ (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)) phi1)))) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) phi1)))) (taylor 0 phi2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) phi1)) (* phi2 (+ (* phi2 (+ (* -1 (+ (/ 1 phi1) (/ (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)) phi1))) (* -1 (/ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) phi1)))) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) phi1)))) (taylor 0 phi2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (pow phi2 2) (taylor inf phi2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (/ (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (pow phi2 2))))) (taylor inf phi2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (/ (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (pow phi2 2))))) (taylor inf phi2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (/ (pow phi2 2) (pow phi1 2)) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (- (/ 1 (pow phi1 2)) (* 2 (/ 1 (* phi1 phi2))))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (- (+ (/ 1 (pow phi1 2)) (/ 1 (pow phi2 2))) (+ (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (* (pow phi1 2) (pow phi2 2)))) (/ 2 (* phi1 phi2))))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (- (+ (/ 1 (pow phi1 2)) (/ 1 (pow phi2 2))) (+ (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (* (pow phi1 2) (pow phi2 2)))) (/ 2 (* phi1 phi2))))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt phi2 (taylor inf phi2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (pow phi2 2) phi1)) (taylor inf phi2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (- (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (* phi1 (pow phi2 2)))) (/ 1 phi1))) (taylor inf phi2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (- (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (* phi1 (pow phi2 2)))) (/ 1 phi1))) (taylor inf phi2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (- (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (* phi1 (pow phi2 2)))) (/ 1 phi1))) (taylor inf phi2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor -inf phi2) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor -inf phi2) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor -inf phi2) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor -inf phi2) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (pow phi2 2) (taylor -inf phi2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))) (taylor -inf phi2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) phi2)) (* 2 phi1)) phi2)))) (taylor -inf phi2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) phi2)) (* 2 phi1)) phi2)))) (taylor -inf phi2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (/ (pow phi2 2) (pow phi1 2)) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (- (/ 1 (pow phi1 2)) (* 2 (/ 1 (* phi1 phi2))))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (- 1 (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) phi2)) (* 2 (/ 1 phi1))) phi2)) (/ 1 (pow phi1 2)))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (- 1 (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) phi2)) (* 2 (/ 1 phi1))) phi2)) (/ 1 (pow phi1 2)))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (pow phi2 2) phi1)) (taylor -inf phi2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (- (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (* phi1 (pow phi2 2)))) (/ 1 phi1))) (taylor -inf phi2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (- (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (* phi1 (pow phi2 2)))) (/ 1 phi1))) (taylor -inf phi2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi2 2) (- (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (* phi1 (pow phi2 2)))) (/ 1 phi1))) (taylor -inf phi2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (- lambda1 lambda2) (taylor 0 phi1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* 1/2 (/ (* (pow phi1 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2) (taylor 0 phi1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2) (taylor 0 phi1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2) (taylor 0 phi1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (- lambda1 lambda2) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* -1/8 (* (pow phi1 2) (- lambda1 lambda2)))) lambda2) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi1 2) (- lambda1 lambda2)))))) lambda2) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda1 (cos (* 1/2 phi2))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2))))))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* 1/2 (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda1 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda1 (sin (* 1/2 phi2))))))) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda1 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda1 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda1 (cos (* 1/2 phi2))))))))) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* phi1 (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi1 (+ (* -1 (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (* phi1 (- 1 (* -1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi1 (+ (* -1 (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (* phi1 (- (+ 1 (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)))) (* -1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (/ (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (pow phi1 2)) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (/ (- (* -1 (* phi1 (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* -1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (pow phi1 2)) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (/ (- (* phi1 (- (* phi1 (- 1 (* -1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* -1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (pow phi1 2)) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (/ (- (* phi1 (- (* phi1 (- (+ 1 (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)))) (* -1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* -1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (pow phi1 2)) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt 1 (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ 1 (* -1/8 (pow phi1 2))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ 1 (* (pow phi1 2) (- (* 1/384 (pow phi1 2)) 1/8))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/384 (* -1/46080 (pow phi1 2)))) 1/8))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (taylor 0 phi1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (/ (+ (* -1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) (taylor 0 phi1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (/ (+ (* -1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* -1 (* phi1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (taylor 0 phi1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (/ (+ (* -1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* phi1 (+ (* -1 (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)))) (* -1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) (taylor 0 phi1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt phi1 (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt phi1 (taylor inf phi1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor inf phi1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R phi1) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi1) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt phi1 (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (pow phi1 2) (taylor inf phi1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt 1 (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ 1 (* -2 (/ phi2 phi1))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ 1 (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ 1 (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt phi1 (taylor inf phi1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi1)) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi1)) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi1)) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi1)) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (taylor inf phi1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (taylor inf phi1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (taylor inf phi1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (taylor inf phi1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor -inf phi1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor -inf phi1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) (taylor -inf phi1) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (pow phi1 2) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1)))) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1)))) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt 1 (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ 1 (* -2 (/ phi2 phi1))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ 1 (* -1 (/ (- (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* -2 phi2)) phi1))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ 1 (* -1 (/ (- (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* -2 phi2)) phi1))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi1)) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi1)) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi1)) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi1)) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (taylor -inf phi1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (taylor -inf phi1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (taylor -inf phi1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (taylor -inf phi1) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (taylor 0 lambda2) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 phi1))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1))))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (- 1 (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ 1 (* -2 (/ (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (pow phi1 2)))) (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ 1 (* lambda2 (- (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))))) (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ 1 (* lambda2 (- (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))))) (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (taylor 0 lambda2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (* 2 (/ (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) phi1))) (taylor 0 lambda2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (* lambda2 (+ (* -1 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1))))) (taylor 0 lambda2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (* lambda2 (+ (* -1 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1))))) (taylor 0 lambda2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (cos (* 1/2 phi1))) (taylor inf lambda2) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))) (taylor inf lambda2) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1)))))))) (taylor inf lambda2) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1))))))))) (taylor inf lambda2) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi1)))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (- (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 (pow phi1 2)))) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (- (/ 1 (pow lambda2 2)) (+ (* -1 (/ (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))) (pow lambda2 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))) (+ (* 2 (/ phi2 (* (pow lambda2 2) phi1))) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 (pow phi1 2))))))))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (- (/ 1 (pow lambda2 2)) (+ (* -1 (/ (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))) (pow lambda2 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))) (+ (* 2 (/ phi2 (* (pow lambda2 2) phi1))) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 (pow phi1 2))))))))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (taylor inf lambda2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 phi1))))) (taylor inf lambda2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -1 (/ (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1) (/ (pow phi2 2) phi1)) (pow lambda2 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 phi1)))))) (taylor inf lambda2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -1 (/ (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1) (/ (pow phi2 2) phi1)) (pow lambda2 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 phi1)))))) (taylor inf lambda2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi1)))) (taylor -inf lambda2) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda2 (cos (* 1/2 phi1))))) (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda2)) (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) (patch (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi1)))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) (patch (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (- (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 (pow phi1 2)))) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (- (* -1 (/ (- (* -1 (/ (- 1 (+ (* -1 (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1)))) lambda2)) (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))) lambda2)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (- (* -1 (/ (- (* -1 (/ (- 1 (+ (* -1 (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1)))) lambda2)) (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))) lambda2)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (patch (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) (patch (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (taylor -inf lambda2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 phi1))))) (taylor -inf lambda2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 phi1)) (/ (pow phi2 2) (* lambda2 phi1)))) lambda2)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)))) (taylor -inf lambda2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 phi1)) (/ (pow phi2 2) (* lambda2 phi1)))) lambda2)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)))) (taylor -inf lambda2) (#s(alt (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) (patch (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor 0 R) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor 0 R) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor 0 R) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor 0 R) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf R) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf R) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf R) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf R) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor -inf R) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor -inf R) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor -inf R) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor -inf R) (#s(alt (*.f64 R phi2) (patch (*.f64 R phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) (patch (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) #<representation binary64>) () ())) ()) |
15 calls:
| Time | Variable | Point | Expression | |
|---|---|---|---|---|
| 20.0ms | lambda2 | @ | inf | ((* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* R phi2) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda1) (cos (* (+ phi2 phi1) 1/2))) (* R lambda1) (cos (* (+ phi2 phi1) 1/2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (neg lambda1) (* (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (* phi1 phi1)) (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (cos (* phi1 1/2)) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) |
| 12.0ms | phi2 | @ | 0 | ((* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* R phi2) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda1) (cos (* (+ phi2 phi1) 1/2))) (* R lambda1) (cos (* (+ phi2 phi1) 1/2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (neg lambda1) (* (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (* phi1 phi1)) (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (cos (* phi1 1/2)) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) |
| 6.0ms | lambda1 | @ | 0 | ((* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* R phi2) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda1) (cos (* (+ phi2 phi1) 1/2))) (* R lambda1) (cos (* (+ phi2 phi1) 1/2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (neg lambda1) (* (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (* phi1 phi1)) (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (cos (* phi1 1/2)) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) |
| 5.0ms | lambda1 | @ | inf | ((* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* R phi2) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda1) (cos (* (+ phi2 phi1) 1/2))) (* R lambda1) (cos (* (+ phi2 phi1) 1/2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (neg lambda1) (* (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (* phi1 phi1)) (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (cos (* phi1 1/2)) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) |
| 5.0ms | lambda1 | @ | -inf | ((* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* R phi2) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda1) (cos (* (+ phi2 phi1) 1/2))) (* R lambda1) (cos (* (+ phi2 phi1) 1/2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (neg lambda1) (* (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (* phi1 phi1)) (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (cos (* phi1 1/2)) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) |
| 1× | egg-herbie |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 1414 | 33491 |
| 1 | 4790 | 32791 |
| 0 | 9073 | 30455 |
| 1× | iter limit |
| 1× | node limit |
| Inputs |
|---|
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3)))))))))) |
(* -1 (* lambda2 (cos (* 1/2 phi1)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 lambda1) |
(* -1 lambda1) |
(* -1 lambda1) |
(* -1 lambda1) |
(* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1))))) |
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))))) |
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))))) |
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))))) |
(- 1 (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) |
(- (+ 1 (* -2 (/ (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (pow phi1 2)))) (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) |
(- (+ 1 (* lambda1 (- (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))))) (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) |
(- (+ 1 (* lambda1 (- (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))))) (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) |
(+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (* 2 (/ (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) phi1))) |
(+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (* lambda1 (+ (* -1 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1))))) |
(+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (* lambda1 (+ (* -1 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(* lambda1 (cos (* 1/2 phi1))) |
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1)))))))) |
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1))))))))) |
(* lambda1 (cos (* 1/2 phi1))) |
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 lambda1) |
(* -1 lambda1) |
(* -1 lambda1) |
(* -1 lambda1) |
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
(/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) |
(* (pow lambda1 2) (- (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 (pow phi1 2)))) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) |
(* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) (+ (* -1 (/ (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))) (pow lambda1 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))) (+ (* 2 (/ phi2 (* (pow lambda1 2) phi1))) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 (pow phi1 2))))))))) |
(* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) (+ (* -1 (/ (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))) (pow lambda1 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))) (+ (* 2 (/ phi2 (* (pow lambda1 2) phi1))) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 (pow phi1 2))))))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) |
(* (pow lambda1 2) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 phi1))))) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1) (/ (pow phi2 2) phi1)) (pow lambda1 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 phi1)))))) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1) (/ (pow phi2 2) phi1)) (pow lambda1 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 phi1)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda1 (cos (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda1)) (* lambda2 (cos (* 1/2 phi1)))) lambda1))))) |
(* lambda1 (cos (* 1/2 phi1))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 lambda1) |
(* -1 lambda1) |
(* -1 lambda1) |
(* -1 lambda1) |
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) |
(* (pow lambda1 2) (- (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 (pow phi1 2)))) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) |
(* (pow lambda1 2) (- (* -1 (/ (- (* -1 (/ (- 1 (+ (* -1 (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1)))) lambda1)) (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))) lambda1)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) |
(* (pow lambda1 2) (- (* -1 (/ (- (* -1 (/ (- 1 (+ (* -1 (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1)))) lambda1)) (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))) lambda1)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) |
(* (pow lambda1 2) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 phi1))))) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 phi1)) (/ (pow phi2 2) (* lambda1 phi1)))) lambda1)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)))) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 phi1)) (/ (pow phi2 2) (* lambda1 phi1)))) lambda1)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(* R phi2) |
(* R phi2) |
(* R phi2) |
(* R phi2) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(* R (* lambda1 (cos (* 1/2 phi1)))) |
(+ (* -1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda1 (cos (* 1/2 phi1))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1))))))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))))))))) |
(cos (* 1/2 phi1)) |
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda1 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda1 (sin (* 1/2 phi1))))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda1 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda1 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda1 (cos (* 1/2 phi1))))))))) |
(* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(+ (* -1 (* (pow phi1 2) (* phi2 (+ (* 2 (/ 1 phi1)) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(+ (* phi2 (+ (* -1 (* (pow phi1 2) (+ (* 2 (/ 1 phi1)) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))) (* (pow phi1 2) (* phi2 (+ (/ 1 (pow phi1 2)) (/ (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(+ (* phi2 (+ (* -1 (* (pow phi1 2) (+ (* 2 (/ 1 phi1)) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))) (* phi2 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (pow phi1 2) (+ (/ 1 (pow phi1 2)) (/ (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(- 1 (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(- (+ 1 (* -1 (* phi2 (+ (* 2 (/ 1 phi1)) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(- (+ 1 (* phi2 (- (* phi2 (+ (/ 1 (pow phi1 2)) (/ (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (+ (* 2 (/ 1 phi1)) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(- (+ 1 (* phi2 (- (* phi2 (- (/ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)) (* -1 (+ (/ 1 (pow phi1 2)) (/ (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* 2 (/ 1 phi1)) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) phi1)) |
(+ (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) phi1)) (/ (* phi2 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) phi1)) |
(+ (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) phi1)) (* phi2 (+ (* -1 (* phi2 (+ (/ 1 phi1) (/ (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)) phi1)))) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) phi1)))) |
(+ (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) phi1)) (* phi2 (+ (* phi2 (+ (* -1 (+ (/ 1 phi1) (/ (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)) phi1))) (* -1 (/ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) phi1)))) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) phi1)))) |
(* R phi2) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(* R phi2) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(* R phi2) |
(* R phi2) |
(* R phi2) |
(* R phi2) |
(* R phi2) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(* R phi2) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(pow phi2 2) |
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))) |
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (/ (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (pow phi2 2))))) |
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (/ (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (pow phi2 2))))) |
(/ (pow phi2 2) (pow phi1 2)) |
(* (pow phi2 2) (- (/ 1 (pow phi1 2)) (* 2 (/ 1 (* phi1 phi2))))) |
(* (pow phi2 2) (- (+ (/ 1 (pow phi1 2)) (/ 1 (pow phi2 2))) (+ (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (* (pow phi1 2) (pow phi2 2)))) (/ 2 (* phi1 phi2))))) |
(* (pow phi2 2) (- (+ (/ 1 (pow phi1 2)) (/ 1 (pow phi2 2))) (+ (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (* (pow phi1 2) (pow phi2 2)))) (/ 2 (* phi1 phi2))))) |
(* R phi2) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(* -1 (/ (pow phi2 2) phi1)) |
(* (pow phi2 2) (- (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (* phi1 (pow phi2 2)))) (/ 1 phi1))) |
(* (pow phi2 2) (- (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (* phi1 (pow phi2 2)))) (/ 1 phi1))) |
(* (pow phi2 2) (- (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (* phi1 (pow phi2 2)))) (/ 1 phi1))) |
(* -1 (* R phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(* -1 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(* -1 (* R phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(* R phi2) |
(* R phi2) |
(* R phi2) |
(* R phi2) |
(* -1 (* R phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(* -1 (* R phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(* -1 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(pow phi2 2) |
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))) |
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) phi2)) (* 2 phi1)) phi2)))) |
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) phi2)) (* 2 phi1)) phi2)))) |
(/ (pow phi2 2) (pow phi1 2)) |
(* (pow phi2 2) (- (/ 1 (pow phi1 2)) (* 2 (/ 1 (* phi1 phi2))))) |
(* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (- 1 (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) phi2)) (* 2 (/ 1 phi1))) phi2)) (/ 1 (pow phi1 2)))) |
(* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (- 1 (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) phi2)) (* 2 (/ 1 phi1))) phi2)) (/ 1 (pow phi1 2)))) |
(* -1 (* R phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(* -1 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(* -1 (/ (pow phi2 2) phi1)) |
(* (pow phi2 2) (- (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (* phi1 (pow phi2 2)))) (/ 1 phi1))) |
(* (pow phi2 2) (- (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (* phi1 (pow phi2 2)))) (/ 1 phi1))) |
(* (pow phi2 2) (- (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (* phi1 (pow phi2 2)))) (/ 1 phi1))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(- lambda1 lambda2) |
(- (+ lambda1 (* 1/2 (/ (* (pow phi1 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2) |
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2) |
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2) |
(- lambda1 lambda2) |
(- (+ lambda1 (* -1/8 (* (pow phi1 2) (- lambda1 lambda2)))) lambda2) |
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi1 2) (- lambda1 lambda2)))))) lambda2) |
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(* R (* lambda1 (cos (* 1/2 phi2)))) |
(+ (* -1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda1 (cos (* 1/2 phi2))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2))))))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))))))))) |
(cos (* 1/2 phi2)) |
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(* -1 (* lambda1 (cos (* 1/2 phi2)))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* 1/2 (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda1 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda1 (sin (* 1/2 phi2))))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda1 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda1 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda1 (cos (* 1/2 phi2))))))))) |
(+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) |
(+ (* -1 (* phi1 (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(+ (* phi1 (+ (* -1 (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (* phi1 (- 1 (* -1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(+ (* phi1 (+ (* -1 (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (* phi1 (- (+ 1 (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)))) (* -1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(/ (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (pow phi1 2)) |
(/ (- (* -1 (* phi1 (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* -1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (pow phi1 2)) |
(/ (- (* phi1 (- (* phi1 (- 1 (* -1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* -1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (pow phi1 2)) |
(/ (- (* phi1 (- (* phi1 (- (+ 1 (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)))) (* -1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* -1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (pow phi1 2)) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
1 |
(+ 1 (* -1/8 (pow phi1 2))) |
(+ 1 (* (pow phi1 2) (- (* 1/384 (pow phi1 2)) 1/8))) |
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/384 (* -1/46080 (pow phi1 2)))) 1/8))) |
(* -1 (/ (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) |
(/ (+ (* -1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) |
(/ (+ (* -1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* -1 (* phi1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) |
(/ (+ (* -1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* phi1 (+ (* -1 (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)))) (* -1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) |
(* R phi1) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
phi1 |
(* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(* R phi1) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(* R phi1) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(* R phi1) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(pow phi1 2) |
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))) |
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))))) |
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))))) |
1 |
(+ 1 (* -2 (/ phi2 phi1))) |
(- (+ 1 (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))) |
(- (+ 1 (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))) |
(* R phi1) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(cos (* 1/2 phi1)) |
(cos (* 1/2 phi1)) |
(cos (* 1/2 phi1)) |
(cos (* 1/2 phi1)) |
(* -1 (/ (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) |
(* -1 (/ (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) |
(* -1 (/ (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) |
(* -1 (/ (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) |
(* -1 (* R phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(* -1 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(* -1 phi1) |
(* -1 (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(* -1 (* R phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(* -1 (* R phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(* -1 (* R phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(* -1 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(pow phi1 2) |
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))) |
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1)))) |
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1)))) |
1 |
(+ 1 (* -2 (/ phi2 phi1))) |
(+ 1 (* -1 (/ (- (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* -2 phi2)) phi1))) |
(+ 1 (* -1 (/ (- (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* -2 phi2)) phi1))) |
(* -1 (* R phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(* -1 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(cos (* 1/2 phi1)) |
(cos (* 1/2 phi1)) |
(cos (* 1/2 phi1)) |
(cos (* 1/2 phi1)) |
(* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) |
(* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) |
(* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) |
(* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3)))))))))) |
(* lambda1 (cos (* 1/2 phi1))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1))))) |
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))))) |
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))))) |
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))))) |
(- 1 (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) |
(- (+ 1 (* -2 (/ (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (pow phi1 2)))) (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) |
(- (+ 1 (* lambda2 (- (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))))) (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) |
(- (+ 1 (* lambda2 (- (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))))) (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) |
(+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (* 2 (/ (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) phi1))) |
(+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (* lambda2 (+ (* -1 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1))))) |
(+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (* lambda2 (+ (* -1 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1))))) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(* lambda2 (cos (* 1/2 phi1))) |
(* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))) |
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1)))))))) |
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1))))))))) |
(* -1 (* lambda2 (cos (* 1/2 phi1)))) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
(/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) |
(* (pow lambda2 2) (- (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 (pow phi1 2)))) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) |
(* (pow lambda2 2) (- (/ 1 (pow lambda2 2)) (+ (* -1 (/ (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))) (pow lambda2 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))) (+ (* 2 (/ phi2 (* (pow lambda2 2) phi1))) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 (pow phi1 2))))))))) |
(* (pow lambda2 2) (- (/ 1 (pow lambda2 2)) (+ (* -1 (/ (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))) (pow lambda2 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))) (+ (* 2 (/ phi2 (* (pow lambda2 2) phi1))) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 (pow phi1 2))))))))) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) |
(* (pow lambda2 2) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 phi1))))) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1) (/ (pow phi2 2) phi1)) (pow lambda2 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 phi1)))))) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1) (/ (pow phi2 2) phi1)) (pow lambda2 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 phi1)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(* -1 (* lambda2 (cos (* 1/2 phi1)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda2 (cos (* 1/2 phi1))))) (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda2)) (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) |
(* -1 (* lambda2 (cos (* 1/2 phi1)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) |
(* (pow lambda2 2) (- (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 (pow phi1 2)))) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) |
(* (pow lambda2 2) (- (* -1 (/ (- (* -1 (/ (- 1 (+ (* -1 (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1)))) lambda2)) (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))) lambda2)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) |
(* (pow lambda2 2) (- (* -1 (/ (- (* -1 (/ (- 1 (+ (* -1 (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1)))) lambda2)) (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))) lambda2)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) |
(* (pow lambda2 2) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 phi1))))) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 phi1)) (/ (pow phi2 2) (* lambda2 phi1)))) lambda2)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)))) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 phi1)) (/ (pow phi2 2) (* lambda2 phi1)))) lambda2)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R phi2) |
(* R phi2) |
(* R phi2) |
(* R phi2) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R phi2) |
(* R phi2) |
(* R phi2) |
(* R phi2) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R phi2) |
(* R phi2) |
(* R phi2) |
(* R phi2) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
| Outputs |
|---|
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (fma.f64 (*.f64 (*.f64 (*.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 R) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (*.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda1 (*.f64 (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (fma.f64 (*.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) lambda1 (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) phi1) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) phi1)) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))))) |
(fma.f64 (fma.f64 (*.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi1 phi1))))) lambda1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi1 phi1))))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)))))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) phi1)) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi1 phi1))))) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) lambda1 (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)))))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) phi1)) |
(* -1 (* lambda2 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (fma.f64 (*.f64 (*.f64 (*.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 R) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (*.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda1 (*.f64 (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (fma.f64 (*.f64 (*.f64 (*.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 R) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (*.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda1 (*.f64 (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (fma.f64 (*.f64 (*.f64 (*.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 R) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (*.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda1 (*.f64 (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (fma.f64 (*.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) lambda1 (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 lambda1) |
(neg.f64 lambda1) |
(* -1 lambda1) |
(neg.f64 lambda1) |
(* -1 lambda1) |
(neg.f64 lambda1) |
(* -1 lambda1) |
(neg.f64 lambda1) |
(* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)) (*.f64 phi1 phi1)))) (*.f64 phi1 phi1)) |
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))))) |
(fma.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)) (*.f64 phi1 phi1)))) (*.f64 phi1 phi1) (*.f64 (*.f64 #s(literal -2 binary64) lambda1) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2))) |
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))))) |
(fma.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)) (*.f64 phi1 phi1)))) (*.f64 phi1 phi1) (*.f64 (fma.f64 (*.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) lambda1)) |
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))))) |
(fma.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)) (*.f64 phi1 phi1)))) (*.f64 phi1 phi1) (*.f64 (fma.f64 (*.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) lambda1)) |
(- 1 (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) |
(-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)) (*.f64 phi1 phi1)))) |
(- (+ 1 (* -2 (/ (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (pow phi1 2)))) (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) |
(-.f64 (fma.f64 (/.f64 (*.f64 #s(literal -2 binary64) lambda1) phi1) (*.f64 lambda2 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1)) #s(literal 1 binary64)) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)) (*.f64 phi1 phi1)))) |
(- (+ 1 (* lambda1 (- (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))))) (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) |
(-.f64 (fma.f64 (fma.f64 (/.f64 lambda1 phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 (*.f64 #s(literal -2 binary64) lambda2) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1))) lambda1 #s(literal 1 binary64)) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)) (*.f64 phi1 phi1)))) |
(- (+ 1 (* lambda1 (- (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))))) (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) |
(-.f64 (fma.f64 (fma.f64 (/.f64 lambda1 phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 (*.f64 #s(literal -2 binary64) lambda2) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1))) lambda1 #s(literal 1 binary64)) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)) (*.f64 phi1 phi1)))) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (fma.f64 (*.f64 (*.f64 (*.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 R) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (*.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda1 (*.f64 (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (fma.f64 (*.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) lambda1 (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) |
(/.f64 (neg.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2))) phi1) |
(+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (* 2 (/ (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) phi1))) |
(fma.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) phi1) #s(literal 2 binary64) (/.f64 (neg.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2))) phi1)) |
(+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (* lambda1 (+ (* -1 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1))))) |
(fma.f64 (fma.f64 (*.f64 lambda2 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1)) #s(literal 2 binary64) (/.f64 (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi1)) lambda1 (/.f64 (neg.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2))) phi1)) |
(+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (* lambda1 (+ (* -1 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1))))) |
(fma.f64 (fma.f64 (*.f64 lambda2 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1)) #s(literal 2 binary64) (/.f64 (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi1)) lambda1 (/.f64 (neg.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2))) phi1)) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R)) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (*.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) lambda1) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda2 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda2 (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (cos (* 1/2 phi1))) |
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(*.f64 (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda2 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1)))))))) |
(*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 phi1 phi1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) lambda1)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1))))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda2 (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (*.f64 phi1 phi1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) lambda1)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (cos (* 1/2 phi1))) |
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(*.f64 (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda2 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(*.f64 (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda2 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(*.f64 (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda2 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1))) lambda1) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R)) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (*.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) lambda1) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R)) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (*.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) lambda1) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R)) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (*.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) lambda1) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda2 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda2 (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 lambda1) |
(neg.f64 lambda1) |
(* -1 lambda1) |
(neg.f64 lambda1) |
(* -1 lambda1) |
(neg.f64 lambda1) |
(* -1 lambda1) |
(neg.f64 lambda1) |
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (fma.f64 (*.f64 lambda2 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1)) #s(literal -2 binary64) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
(*.f64 (fma.f64 (*.f64 lambda2 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1)) #s(literal -2 binary64) (fma.f64 (/.f64 (*.f64 phi1 phi1) lambda1) (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (fma.f64 (/.f64 (*.f64 lambda2 lambda2) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))))) lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
(*.f64 (fma.f64 (*.f64 lambda2 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1)) #s(literal -2 binary64) (fma.f64 (/.f64 (*.f64 phi1 phi1) lambda1) (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (fma.f64 (/.f64 (*.f64 lambda2 lambda2) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))))) lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 lambda1 lambda1)) |
(/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) |
(*.f64 (/.f64 (*.f64 lambda1 lambda1) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1)) |
(* (pow lambda1 2) (- (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 (pow phi1 2)))) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) |
(*.f64 (fma.f64 (/.f64 (*.f64 #s(literal -2 binary64) lambda2) (*.f64 phi1 phi1)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) (+ (* -1 (/ (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))) (pow lambda1 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))) (+ (* 2 (/ phi2 (* (pow lambda1 2) phi1))) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 (pow phi1 2))))))))) |
(*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda1)) (-.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) phi1)) (*.f64 (/.f64 lambda2 (*.f64 phi1 phi1)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1))) (/.f64 (neg.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 phi1 phi1))) (/.f64 (fma.f64 (/.f64 (*.f64 lambda2 lambda2) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))) (*.f64 lambda1 lambda1)))) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) (+ (* -1 (/ (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))) (pow lambda1 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))) (+ (* 2 (/ phi2 (* (pow lambda1 2) phi1))) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 (pow phi1 2))))))))) |
(*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda1)) (-.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) phi1)) (*.f64 (/.f64 lambda2 (*.f64 phi1 phi1)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1))) (/.f64 (neg.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 phi1 phi1))) (/.f64 (fma.f64 (/.f64 (*.f64 lambda2 lambda2) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))) (*.f64 lambda1 lambda1)))) (*.f64 lambda1 lambda1)) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R)) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (*.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) lambda1) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda2 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda2 (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) |
(* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) |
(/.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi1) |
(* (pow lambda1 2) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 phi1))))) |
(*.f64 (fma.f64 (/.f64 (*.f64 #s(literal 2 binary64) lambda2) lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (/.f64 (neg.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) phi1)) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1) (/ (pow phi2 2) phi1)) (pow lambda1 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 phi1)))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 (*.f64 #s(literal 2 binary64) lambda2) lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (/.f64 (neg.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) phi1)) (/.f64 (fma.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (/.f64 (*.f64 phi2 phi2) phi1)) (*.f64 lambda1 lambda1))) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1) (/ (pow phi2 2) phi1)) (pow lambda1 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 phi1)))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 (*.f64 #s(literal 2 binary64) lambda2) lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (/.f64 (neg.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) phi1)) (/.f64 (fma.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (/.f64 (*.f64 phi2 phi2) phi1)) (*.f64 lambda1 lambda1))) (*.f64 lambda1 lambda1)) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(neg.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 R lambda2) lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda1)) lambda1))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda2 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) lambda1))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda2 lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda1)) lambda1))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda2 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda1 (cos (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (*.f64 phi1 phi1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)) lambda1))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda1)) (* lambda2 (cos (* 1/2 phi1)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda2 lambda1) (/.f64 (*.f64 phi1 phi1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (/.f64 (*.f64 phi1 phi1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) lambda1)) lambda1))) |
(* lambda1 (cos (* 1/2 phi1))) |
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(*.f64 (neg.f64 lambda1) (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(*.f64 (neg.f64 lambda1) (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(*.f64 (neg.f64 lambda1) (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(neg.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 R lambda2) lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda1)) lambda1))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(neg.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 R lambda2) lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda1)) lambda1))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(neg.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 R lambda2) lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda1)) lambda1))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda2 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) lambda1))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda2 lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda1)) lambda1))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 lambda1) |
(neg.f64 lambda1) |
(* -1 lambda1) |
(neg.f64 lambda1) |
(* -1 lambda1) |
(neg.f64 lambda1) |
(* -1 lambda1) |
(neg.f64 lambda1) |
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) |
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (fma.f64 (*.f64 lambda2 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1)) #s(literal -2 binary64) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 phi1 phi1) (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (fma.f64 (/.f64 (*.f64 lambda2 lambda2) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))))) lambda1))) lambda1)) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 phi1 phi1) (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (fma.f64 (/.f64 (*.f64 lambda2 lambda2) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))))) lambda1))) lambda1)) (*.f64 lambda1 lambda1)) |
(/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) |
(*.f64 (/.f64 (*.f64 lambda1 lambda1) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1)) |
(* (pow lambda1 2) (- (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 (pow phi1 2)))) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) |
(*.f64 (fma.f64 (/.f64 (*.f64 #s(literal -2 binary64) lambda2) (*.f64 phi1 phi1)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (- (* -1 (/ (- (* -1 (/ (- 1 (+ (* -1 (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1)))) lambda1)) (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))) lambda1)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) |
(*.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (fma.f64 (/.f64 (*.f64 lambda2 lambda2) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))))) lambda1) #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 #s(literal 2 binary64) lambda2) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1))) lambda1) #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (- (* -1 (/ (- (* -1 (/ (- 1 (+ (* -1 (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1)))) lambda1)) (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))) lambda1)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) |
(*.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (fma.f64 (/.f64 (*.f64 lambda2 lambda2) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))))) lambda1) #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 #s(literal 2 binary64) lambda2) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1))) lambda1) #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) (*.f64 lambda1 lambda1)) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(neg.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 R lambda2) lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda1)) lambda1))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda2 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) lambda1))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda2 lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda1)) lambda1))) |
(* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) |
(/.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi1) |
(* (pow lambda1 2) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 phi1))))) |
(*.f64 (fma.f64 (/.f64 (*.f64 #s(literal 2 binary64) lambda2) lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (/.f64 (neg.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) phi1)) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 phi1)) (/ (pow phi2 2) (* lambda1 phi1)))) lambda1)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)))) |
(*.f64 (-.f64 (/.f64 (neg.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) phi1) (/.f64 (fma.f64 (*.f64 lambda2 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1)) #s(literal -2 binary64) (fma.f64 (/.f64 (*.f64 lambda2 lambda2) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1) (*.f64 (/.f64 phi2 lambda1) (/.f64 phi2 phi1)))) lambda1)) (*.f64 lambda1 lambda1)) |
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda1 phi1)) (/ (pow phi2 2) (* lambda1 phi1)))) lambda1)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)))) |
(*.f64 (-.f64 (/.f64 (neg.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) phi1) (/.f64 (fma.f64 (*.f64 lambda2 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1)) #s(literal -2 binary64) (fma.f64 (/.f64 (*.f64 lambda2 lambda2) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1) (*.f64 (/.f64 phi2 lambda1) (/.f64 phi2 phi1)))) lambda1)) (*.f64 lambda1 lambda1)) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 R) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi2 R) (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 R (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) phi2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) phi2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 R) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi2 R) (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 R (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(* R phi2) |
(*.f64 phi2 R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 R) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi2 R) (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 R (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(* R (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (* -1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda1 (cos (* 1/2 phi1))))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (*.f64 lambda1 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 (*.f64 lambda1 phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) phi2 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (*.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) R) (*.f64 (*.f64 lambda1 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) phi2)) phi2 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(cos (* 1/2 phi1)) |
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 R) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi2 R) (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 R (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) phi2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) phi2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda1 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda1 (sin (* 1/2 phi1))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 lambda1 phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/8 binary64))) phi2 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda1 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda1 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda1 (cos (* 1/2 phi1))))))))) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (*.f64 #s(literal 1/8 binary64) lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(*.f64 (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 phi1 phi1)) |
(+ (* -1 (* (pow phi1 2) (* phi2 (+ (* 2 (/ 1 phi1)) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(fma.f64 (neg.f64 (*.f64 phi1 phi1)) (*.f64 (fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) (/.f64 #s(literal 2 binary64) phi1)) phi2) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 phi1 phi1))) |
(+ (* phi2 (+ (* -1 (* (pow phi1 2) (+ (* 2 (/ 1 phi1)) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))) (* (pow phi1 2) (* phi2 (+ (/ 1 (pow phi1 2)) (/ (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(fma.f64 (fma.f64 (*.f64 (*.f64 phi1 phi1) phi2) (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) (*.f64 (neg.f64 (*.f64 phi1 phi1)) (fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) (/.f64 #s(literal 2 binary64) phi1)))) phi2 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 phi1 phi1))) |
(+ (* phi2 (+ (* -1 (* (pow phi1 2) (+ (* 2 (/ 1 phi1)) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))) (* phi2 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (pow phi1 2) (+ (/ 1 (pow phi1 2)) (/ (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 phi2 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (fma.f64 (*.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) (*.f64 phi1 phi1) #s(literal 1 binary64))) phi2 (*.f64 (neg.f64 (*.f64 phi1 phi1)) (fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) (/.f64 #s(literal 2 binary64) phi1)))) phi2 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 phi1 phi1))) |
(- 1 (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) |
(- (+ 1 (* -1 (* phi2 (+ (* 2 (/ 1 phi1)) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+.f64 (fma.f64 (neg.f64 phi2) (fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) (/.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64)) (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) |
(- (+ 1 (* phi2 (- (* phi2 (+ (/ 1 (pow phi1 2)) (/ (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (+ (* 2 (/ 1 phi1)) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+.f64 (fma.f64 (fma.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) phi2 (neg.f64 (fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) (/.f64 #s(literal 2 binary64) phi1)))) phi2 #s(literal 1 binary64)) (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) |
(- (+ 1 (* phi2 (- (* phi2 (- (/ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)) (* -1 (+ (/ 1 (pow phi1 2)) (/ (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* 2 (/ 1 phi1)) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 phi2 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64))) phi1) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1) (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) phi2 (neg.f64 (fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) (/.f64 #s(literal 2 binary64) phi1)))) phi2 #s(literal 1 binary64)) (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 R) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi2 R) (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 R (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) phi2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) phi2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) phi1)) |
(/.f64 (neg.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi1) |
(+ (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) phi1)) (/ (* phi2 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) phi1)) |
(fma.f64 phi2 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) phi1)) (/.f64 (neg.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi1)) |
(+ (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) phi1)) (* phi2 (+ (* -1 (* phi2 (+ (/ 1 phi1) (/ (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)) phi1)))) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) phi1)))) |
(fma.f64 (fma.f64 (neg.f64 phi2) (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1) (/.f64 #s(literal 1 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) phi1))) phi2 (/.f64 (neg.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi1)) |
(+ (* -1 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) phi1)) (* phi2 (+ (* phi2 (+ (* -1 (+ (/ 1 phi1) (/ (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)) phi1))) (* -1 (/ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) phi1)))) (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))) phi1)))) |
(fma.f64 (fma.f64 (-.f64 (neg.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1) (/.f64 #s(literal 1 binary64) phi1))) (*.f64 phi2 (/.f64 (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) phi1))) phi2 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) phi1))) phi2 (/.f64 (neg.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi1)) |
(* R phi2) |
(*.f64 phi2 R) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (*.f64 phi1 R) phi2))) R) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (*.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64)))) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (neg.f64 (/.f64 (*.f64 phi1 R) phi2))) R) phi2) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64) (/.f64 (neg.f64 phi1) phi2)) phi2 phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(fma.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (/.f64 (neg.f64 phi1) phi2)) phi2 phi2) |
(* R phi2) |
(*.f64 phi2 R) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (*.f64 phi1 R) phi2))) R) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (*.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64)))) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (neg.f64 (/.f64 (*.f64 phi1 R) phi2))) R) phi2) |
(* R phi2) |
(*.f64 phi2 R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R phi2) |
(*.f64 phi2 R) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (*.f64 phi1 R) phi2))) R) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (*.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64)))) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (neg.f64 (/.f64 (*.f64 phi1 R) phi2))) R) phi2) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* R phi2) |
(*.f64 phi2 R) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (*.f64 phi1 R) phi2))) R) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (*.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64)))) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (neg.f64 (/.f64 (*.f64 phi1 R) phi2))) R) phi2) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64) (/.f64 (neg.f64 phi1) phi2)) phi2 phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(fma.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (/.f64 (neg.f64 phi1) phi2)) phi2 phi2) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(pow phi2 2) |
(*.f64 phi2 phi2) |
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))) |
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal -2 binary64) #s(literal 1 binary64)) (*.f64 phi2 phi2)) |
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (/ (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (pow phi2 2))))) |
(*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 phi1 phi1) phi2) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) phi2) (*.f64 (/.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 1 binary64)) (*.f64 phi2 phi2)) |
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (/ (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (pow phi2 2))))) |
(*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 phi1 phi1) phi2) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) phi2) (*.f64 (/.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 1 binary64)) (*.f64 phi2 phi2)) |
(/ (pow phi2 2) (pow phi1 2)) |
(*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1)) |
(* (pow phi2 2) (- (/ 1 (pow phi1 2)) (* 2 (/ 1 (* phi1 phi2))))) |
(*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)) (/.f64 (/.f64 #s(literal 2 binary64) phi1) phi2)) (*.f64 phi2 phi2)) |
(* (pow phi2 2) (- (+ (/ 1 (pow phi1 2)) (/ 1 (pow phi2 2))) (+ (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (* (pow phi1 2) (pow phi2 2)))) (/ 2 (* phi1 phi2))))) |
(*.f64 (-.f64 (+.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) (-.f64 (/.f64 (/.f64 #s(literal 2 binary64) phi1) phi2) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 phi2 phi1) (*.f64 phi2 phi1)))))) (*.f64 phi2 phi2)) |
(* (pow phi2 2) (- (+ (/ 1 (pow phi1 2)) (/ 1 (pow phi2 2))) (+ (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (* (pow phi1 2) (pow phi2 2)))) (/ 2 (* phi1 phi2))))) |
(*.f64 (-.f64 (+.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) (-.f64 (/.f64 (/.f64 #s(literal 2 binary64) phi1) phi2) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 phi2 phi1) (*.f64 phi2 phi1)))))) (*.f64 phi2 phi2)) |
(* R phi2) |
(*.f64 phi2 R) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (*.f64 phi1 R) phi2))) R) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (*.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64)))) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (neg.f64 (/.f64 (*.f64 phi1 R) phi2))) R) phi2) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64) (/.f64 (neg.f64 phi1) phi2)) phi2 phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(fma.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (/.f64 (neg.f64 phi1) phi2)) phi2 phi2) |
(* -1 (/ (pow phi2 2) phi1)) |
(neg.f64 (/.f64 (*.f64 phi2 phi2) phi1)) |
(* (pow phi2 2) (- (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (* phi1 (pow phi2 2)))) (/ 1 phi1))) |
(*.f64 (-.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 phi2 phi2) phi1)))) (/.f64 #s(literal 1 binary64) phi1)) (*.f64 phi2 phi2)) |
(* (pow phi2 2) (- (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (* phi1 (pow phi2 2)))) (/ 1 phi1))) |
(*.f64 (-.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 phi2 phi2) phi1)))) (/.f64 #s(literal 1 binary64) phi1)) (*.f64 phi2 phi2)) |
(* (pow phi2 2) (- (* -1 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (* phi1 (pow phi2 2)))) (/ 1 phi1))) |
(*.f64 (-.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 phi2 phi2) phi1)))) (/.f64 #s(literal 1 binary64) phi1)) (*.f64 phi2 phi2)) |
(* -1 (* R phi2)) |
(*.f64 (neg.f64 R) phi2) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))) #s(literal -1/2 binary64) (*.f64 phi1 R)) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (-.f64 (*.f64 phi1 R) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 R (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 phi1 R) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi2))) phi2)) phi2))) |
(* -1 phi2) |
(neg.f64 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)) #s(literal -1/2 binary64) phi1) phi2))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))))) phi2)) phi2))) |
(* -1 (* R phi2)) |
(*.f64 (neg.f64 R) phi2) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))) #s(literal -1/2 binary64) (*.f64 phi1 R)) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (-.f64 (*.f64 phi1 R) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 R (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 phi1 R) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi2))) phi2)) phi2))) |
(* R phi2) |
(*.f64 phi2 R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R phi2) |
(*.f64 phi2 R) |
(* -1 (* R phi2)) |
(*.f64 (neg.f64 R) phi2) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))) #s(literal -1/2 binary64) (*.f64 phi1 R)) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (-.f64 (*.f64 phi1 R) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 R (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 phi1 R) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi2))) phi2)) phi2))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* -1 (* R phi2)) |
(*.f64 (neg.f64 R) phi2) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))) #s(literal -1/2 binary64) (*.f64 phi1 R)) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (-.f64 (*.f64 phi1 R) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 R (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 phi1 R) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi2))) phi2)) phi2))) |
(* -1 phi2) |
(neg.f64 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)) #s(literal -1/2 binary64) phi1) phi2))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))))) phi2)) phi2))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(pow phi2 2) |
(*.f64 phi2 phi2) |
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))) |
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal -2 binary64) #s(literal 1 binary64)) (*.f64 phi2 phi2)) |
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) phi2)) (* 2 phi1)) phi2)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 phi1 #s(literal 2 binary64)) (*.f64 (*.f64 phi1 phi1) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) phi2))) phi2)) (*.f64 phi2 phi2)) |
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (* (pow phi1 2) (- 1 (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) phi2)) (* 2 phi1)) phi2)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 phi1 #s(literal 2 binary64)) (*.f64 (*.f64 phi1 phi1) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) phi2))) phi2)) (*.f64 phi2 phi2)) |
(/ (pow phi2 2) (pow phi1 2)) |
(*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1)) |
(* (pow phi2 2) (- (/ 1 (pow phi1 2)) (* 2 (/ 1 (* phi1 phi2))))) |
(*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)) (/.f64 (/.f64 #s(literal 2 binary64) phi1) phi2)) (*.f64 phi2 phi2)) |
(* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (- 1 (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) phi2)) (* 2 (/ 1 phi1))) phi2)) (/ 1 (pow phi1 2)))) |
(*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)) (/.f64 (-.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) phi2)) phi2)) (*.f64 phi2 phi2)) |
(* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (- 1 (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) phi2)) (* 2 (/ 1 phi1))) phi2)) (/ 1 (pow phi1 2)))) |
(*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)) (/.f64 (-.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) phi2)) phi2)) (*.f64 phi2 phi2)) |
(* -1 (* R phi2)) |
(*.f64 (neg.f64 R) phi2) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))) #s(literal -1/2 binary64) (*.f64 phi1 R)) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (-.f64 (*.f64 phi1 R) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 R (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 phi1 R) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi2))) phi2)) phi2))) |
(* -1 phi2) |
(neg.f64 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)) #s(literal -1/2 binary64) phi1) phi2))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))))) phi2)) phi2))) |
(* -1 (/ (pow phi2 2) phi1)) |
(neg.f64 (/.f64 (*.f64 phi2 phi2) phi1)) |
(* (pow phi2 2) (- (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (* phi1 (pow phi2 2)))) (/ 1 phi1))) |
(*.f64 (-.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 phi2 phi2) phi1)))) (/.f64 #s(literal 1 binary64) phi1)) (*.f64 phi2 phi2)) |
(* (pow phi2 2) (- (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (* phi1 (pow phi2 2)))) (/ 1 phi1))) |
(*.f64 (-.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 phi2 phi2) phi1)))) (/.f64 #s(literal 1 binary64) phi1)) (*.f64 phi2 phi2)) |
(* (pow phi2 2) (- (* -1 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (* phi1 (pow phi2 2)))) (/ 1 phi1))) |
(*.f64 (-.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 phi2 phi2) phi1)))) (/.f64 #s(literal 1 binary64) phi1)) (*.f64 phi2 phi2)) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 R) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi1 R) (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) phi1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 R (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R)) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2))))) phi1 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) |
(- lambda1 lambda2) |
(-.f64 lambda1 lambda2) |
(- (+ lambda1 (* 1/2 (/ (* (pow phi1 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2) |
(-.f64 (fma.f64 (/.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 phi1 phi1)) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) lambda1) lambda2) |
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2) |
(-.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 phi1 phi1) (/.f64 (fma.f64 #s(literal 1/48 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 lambda1 lambda2)))) (*.f64 phi1 phi1) lambda1) lambda2) |
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2) |
(-.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 phi1 phi1) (/.f64 (fma.f64 #s(literal -1/1440 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (/.f64 (fma.f64 #s(literal 1/48 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 #s(literal 1/48 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)))) (*.f64 phi1 phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64))) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1) lambda1) lambda2) |
(- lambda1 lambda2) |
(-.f64 lambda1 lambda2) |
(- (+ lambda1 (* -1/8 (* (pow phi1 2) (- lambda1 lambda2)))) lambda2) |
(-.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 phi1 phi1)) (-.f64 lambda1 lambda2) lambda1) lambda2) |
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi1 2) (- lambda1 lambda2)))))) lambda2) |
(-.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 phi1 phi1)) (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/8 binary64) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1) lambda1) lambda2) |
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2) |
(-.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/46080 binary64) (*.f64 phi1 phi1)) (-.f64 lambda1 lambda2) (*.f64 #s(literal 1/384 binary64) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1) (*.f64 #s(literal -1/8 binary64) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1) lambda1) lambda2) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 R) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi1 R) (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) phi1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 R (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R)) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 R) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi1 R) (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) phi1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 R (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R)) |
(* R (* lambda1 (cos (* 1/2 phi2)))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (* -1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda1 (cos (* 1/2 phi2))))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (*.f64 lambda1 phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 (*.f64 lambda1 phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) phi1 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (*.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) R) (*.f64 (*.f64 lambda1 phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal -1/8 binary64))) phi1)) phi1 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/8 binary64))) phi1 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 R) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi1 R) (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) phi1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 R (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R)) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2))))) phi1 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) |
(* -1 (* lambda1 (cos (* 1/2 phi2)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* 1/2 (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda1 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda1 (sin (* 1/2 phi2))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 lambda1 phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/8 binary64))) phi1 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda1 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda1 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda1 (cos (* 1/2 phi2))))))))) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) (*.f64 (*.f64 #s(literal 1/8 binary64) lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) |
(fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) |
(+ (* -1 (* phi1 (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(fma.f64 (neg.f64 phi1) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi2 #s(literal 2 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) |
(+ (* phi1 (+ (* -1 (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (* phi1 (- 1 (* -1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(fma.f64 (fma.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) phi1 (neg.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi2 #s(literal 2 binary64))))) phi1 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) |
(+ (* phi1 (+ (* -1 (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (* phi1 (- (+ 1 (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)))) (* -1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(fma.f64 (fma.f64 (+.f64 (fma.f64 (*.f64 phi1 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) phi1 (neg.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi2 #s(literal 2 binary64))))) phi1 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) |
(/ (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (pow phi1 2)) |
(/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (*.f64 phi1 phi1)) |
(/ (- (* -1 (* phi1 (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* -1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (pow phi1 2)) |
(/.f64 (fma.f64 (neg.f64 phi1) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi2 #s(literal 2 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) (*.f64 phi1 phi1)) |
(/ (- (* phi1 (- (* phi1 (- 1 (* -1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* -1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (pow phi1 2)) |
(/.f64 (fma.f64 (fma.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) phi1 (neg.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi2 #s(literal 2 binary64))))) phi1 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) (*.f64 phi1 phi1)) |
(/ (- (* phi1 (- (* phi1 (- (+ 1 (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)))) (* -1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (+ (* 2 phi2) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* -1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (pow phi1 2)) |
(/.f64 (fma.f64 (fma.f64 (+.f64 (fma.f64 (*.f64 phi1 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) phi1 (neg.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi2 #s(literal 2 binary64))))) phi1 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) (*.f64 phi1 phi1)) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 R) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi1 R) (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) phi1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 R (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) R)) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2))))) phi1 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) |
1 |
#s(literal 1 binary64) |
(+ 1 (* -1/8 (pow phi1 2))) |
(fma.f64 #s(literal -1/8 binary64) (*.f64 phi1 phi1) #s(literal 1 binary64)) |
(+ 1 (* (pow phi1 2) (- (* 1/384 (pow phi1 2)) 1/8))) |
(fma.f64 (fma.f64 #s(literal 1/384 binary64) (*.f64 phi1 phi1) #s(literal -1/8 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) |
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/384 (* -1/46080 (pow phi1 2)))) 1/8))) |
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 phi1 phi1) #s(literal 1/384 binary64)) (*.f64 phi1 phi1) #s(literal -1/8 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) |
(* -1 (/ (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) |
(/.f64 (neg.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) phi1) |
(/ (+ (* -1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) phi1) |
(/.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) phi1) |
(/ (+ (* -1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* -1 (* phi1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) |
(/.f64 (fma.f64 (fma.f64 (neg.f64 phi1) (*.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (neg.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) phi1) |
(/ (+ (* -1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* phi1 (+ (* -1 (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)))) (* -1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) phi1) |
(/.f64 (fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 phi1 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) phi1 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (neg.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) phi1) |
(* R phi1) |
(*.f64 phi1 R) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(*.f64 (-.f64 R (*.f64 R (/.f64 phi2 phi1))) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64) (/.f64 (*.f64 (neg.f64 R) phi2) phi1)) R) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (*.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64)))) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (/.f64 (*.f64 (neg.f64 R) phi2) phi1)) R) phi1) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) (/.f64 (neg.f64 phi2) phi1)) phi1 phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(fma.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (/.f64 (neg.f64 phi2) phi1)) phi1 phi1) |
phi1 |
(* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) #s(literal 1 binary64)) phi1) |
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) #s(literal -1/8 binary64))) phi1 phi1) |
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) #s(literal -1/8 binary64) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi1 #s(literal 6 binary64)))) #s(literal 1/16 binary64)))) phi1 phi1) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* R phi1) |
(*.f64 phi1 R) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(*.f64 (-.f64 R (*.f64 R (/.f64 phi2 phi1))) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64) (/.f64 (*.f64 (neg.f64 R) phi2) phi1)) R) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (*.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64)))) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (/.f64 (*.f64 (neg.f64 R) phi2) phi1)) R) phi1) |
(* R phi1) |
(*.f64 phi1 R) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(*.f64 (-.f64 R (*.f64 R (/.f64 phi2 phi1))) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64) (/.f64 (*.f64 (neg.f64 R) phi2) phi1)) R) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (*.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64)))) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (/.f64 (*.f64 (neg.f64 R) phi2) phi1)) R) phi1) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* R phi1) |
(*.f64 phi1 R) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(*.f64 (-.f64 R (*.f64 R (/.f64 phi2 phi1))) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64) (/.f64 (*.f64 (neg.f64 R) phi2) phi1)) R) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (*.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64)))) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (/.f64 (*.f64 (neg.f64 R) phi2) phi1)) R) phi1) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) (/.f64 (neg.f64 phi2) phi1)) phi1 phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(fma.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (/.f64 (neg.f64 phi2) phi1)) phi1 phi1) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(pow phi1 2) |
(*.f64 phi1 phi1) |
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))) |
(*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) #s(literal 1 binary64)) (*.f64 phi1 phi1)) |
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))))) |
(*.f64 (+.f64 (fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1)))) #s(literal 1 binary64)) (*.f64 phi1 phi1)) |
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))))) |
(*.f64 (+.f64 (fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1)))) #s(literal 1 binary64)) (*.f64 phi1 phi1)) |
1 |
#s(literal 1 binary64) |
(+ 1 (* -2 (/ phi2 phi1))) |
(fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) #s(literal 1 binary64)) |
(- (+ 1 (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))) |
(+.f64 (fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1)))) #s(literal 1 binary64)) |
(- (+ 1 (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))) |
(+.f64 (fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1)))) #s(literal 1 binary64)) |
(* R phi1) |
(*.f64 phi1 R) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(*.f64 (-.f64 R (*.f64 R (/.f64 phi2 phi1))) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64) (/.f64 (*.f64 (neg.f64 R) phi2) phi1)) R) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (*.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64)))) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (/.f64 (*.f64 (neg.f64 R) phi2) phi1)) R) phi1) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) (/.f64 (neg.f64 phi2) phi1)) phi1 phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(fma.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (/.f64 (neg.f64 phi2) phi1)) phi1 phi1) |
(cos (* 1/2 phi1)) |
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(cos (* 1/2 phi1)) |
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(cos (* 1/2 phi1)) |
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(cos (* 1/2 phi1)) |
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(* -1 (/ (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) |
(/.f64 (neg.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) phi1) |
(* -1 (/ (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) |
(/.f64 (neg.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) phi1) |
(* -1 (/ (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) |
(/.f64 (neg.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) phi1) |
(* -1 (/ (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) |
(/.f64 (neg.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) phi1) |
(* -1 (* R phi1)) |
(*.f64 (neg.f64 R) phi1) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (*.f64 R (/.f64 phi2 phi1)))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))) #s(literal -1/2 binary64) (*.f64 phi2 R)) phi1))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (-.f64 (*.f64 phi2 R) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 R (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 phi2 R) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi1))) phi1)) phi1))) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)) #s(literal -1/2 binary64) phi2) phi1))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))))) phi1)) phi1))) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(*.f64 (neg.f64 phi1) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) #s(literal 1 binary64))) |
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(neg.f64 (fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) #s(literal -1/8 binary64))) phi1 phi1)) |
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
(neg.f64 (fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) #s(literal -1/8 binary64) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi1 #s(literal 6 binary64)))) #s(literal 1/16 binary64)))) phi1 phi1)) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* R phi1)) |
(*.f64 (neg.f64 R) phi1) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (*.f64 R (/.f64 phi2 phi1)))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))) #s(literal -1/2 binary64) (*.f64 phi2 R)) phi1))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (-.f64 (*.f64 phi2 R) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 R (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 phi2 R) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi1))) phi1)) phi1))) |
(* -1 (* R phi1)) |
(*.f64 (neg.f64 R) phi1) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (*.f64 R (/.f64 phi2 phi1)))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))) #s(literal -1/2 binary64) (*.f64 phi2 R)) phi1))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (-.f64 (*.f64 phi2 R) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 R (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 phi2 R) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi1))) phi1)) phi1))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* -1 (* R phi1)) |
(*.f64 (neg.f64 R) phi1) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (*.f64 R (/.f64 phi2 phi1)))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))) #s(literal -1/2 binary64) (*.f64 phi2 R)) phi1))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (-.f64 (*.f64 phi2 R) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 R (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 phi2 R) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi1))) phi1)) phi1))) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)) #s(literal -1/2 binary64) phi2) phi1))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))))) phi1)) phi1))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(pow phi1 2) |
(*.f64 phi1 phi1) |
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))) |
(*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) #s(literal 1 binary64)) (*.f64 phi1 phi1)) |
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (neg.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) phi1)) phi1)) (*.f64 phi1 phi1)) |
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (neg.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) phi1)) phi1)) (*.f64 phi1 phi1)) |
1 |
#s(literal 1 binary64) |
(+ 1 (* -2 (/ phi2 phi1))) |
(fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) #s(literal 1 binary64)) |
(+ 1 (* -1 (/ (- (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* -2 phi2)) phi1))) |
(-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (neg.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) phi1)) phi1)) |
(+ 1 (* -1 (/ (- (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* -2 phi2)) phi1))) |
(-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (neg.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) phi1)) phi1)) |
(* -1 (* R phi1)) |
(*.f64 (neg.f64 R) phi1) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (*.f64 R (/.f64 phi2 phi1)))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))) #s(literal -1/2 binary64) (*.f64 phi2 R)) phi1))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (-.f64 (*.f64 phi2 R) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 R (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 phi2 R) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) phi1))) phi1)) phi1))) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)) #s(literal -1/2 binary64) phi2) phi1))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))))) phi1)) phi1))) |
(cos (* 1/2 phi1)) |
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(cos (* 1/2 phi1)) |
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(cos (* 1/2 phi1)) |
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(cos (* 1/2 phi1)) |
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) |
(/.f64 (neg.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) phi1) |
(* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) |
(/.f64 (neg.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) phi1) |
(* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) |
(/.f64 (neg.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) phi1) |
(* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) |
(/.f64 (neg.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) phi1) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (fma.f64 (*.f64 (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 R) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (*.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda2 (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (fma.f64 (*.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) lambda2 (*.f64 (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) phi1) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) phi1)) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))))) |
(fma.f64 (fma.f64 (*.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) lambda2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) lambda2 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) phi1)) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) lambda2 (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) lambda2 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) phi1)) |
(* lambda1 (cos (* 1/2 phi1))) |
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (fma.f64 (*.f64 (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 R) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (*.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda2 (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (fma.f64 (*.f64 (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 R) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (*.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda2 (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (fma.f64 (*.f64 (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 R) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (*.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda2 (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (fma.f64 (*.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) lambda2 (*.f64 (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (*.f64 phi1 phi1)))) (*.f64 phi1 phi1)) |
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))))) |
(fma.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (*.f64 phi1 phi1)))) (*.f64 phi1 phi1) (*.f64 (*.f64 #s(literal -2 binary64) lambda1) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2))) |
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))))) |
(fma.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (*.f64 phi1 phi1)))) (*.f64 phi1 phi1) (*.f64 (fma.f64 (*.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) lambda2)) |
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow phi1 2) (- 1 (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))))) |
(fma.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (*.f64 phi1 phi1)))) (*.f64 phi1 phi1) (*.f64 (fma.f64 (*.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) lambda2)) |
(- 1 (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) |
(-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (*.f64 phi1 phi1)))) |
(- (+ 1 (* -2 (/ (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (pow phi1 2)))) (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) |
(-.f64 (fma.f64 (/.f64 (*.f64 #s(literal -2 binary64) lambda1) phi1) (*.f64 lambda2 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1)) #s(literal 1 binary64)) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (*.f64 phi1 phi1)))) |
(- (+ 1 (* lambda2 (- (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))))) (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) |
(-.f64 (fma.f64 (fma.f64 (/.f64 lambda2 phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 (*.f64 #s(literal -2 binary64) lambda1) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1))) lambda2 #s(literal 1 binary64)) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (*.f64 phi1 phi1)))) |
(- (+ 1 (* lambda2 (- (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))))) (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) (pow phi1 2))) (* 2 (/ phi2 phi1)))) |
(-.f64 (fma.f64 (fma.f64 (/.f64 lambda2 phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 (*.f64 #s(literal -2 binary64) lambda1) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1))) lambda2 #s(literal 1 binary64)) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (*.f64 phi1 phi1)))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (fma.f64 (*.f64 (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 R) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (*.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) R) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda2 (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (fma.f64 (*.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) lambda2 (*.f64 (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) |
(/.f64 (neg.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) phi1) |
(+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (* 2 (/ (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) phi1))) |
(fma.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) phi1) #s(literal 2 binary64) (/.f64 (neg.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) phi1)) |
(+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (* lambda2 (+ (* -1 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1))))) |
(fma.f64 (fma.f64 (*.f64 lambda1 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1)) #s(literal 2 binary64) (/.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) phi1)) lambda2 (/.f64 (neg.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) phi1)) |
(+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi2 2)) phi1)) (* lambda2 (+ (* -1 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1))))) |
(fma.f64 (fma.f64 (*.f64 lambda1 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1)) #s(literal 2 binary64) (/.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) phi1)) lambda2 (/.f64 (neg.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) phi1)) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R)) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (*.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) lambda2) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda1 (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda2 lambda2)))) (/.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (cos (* 1/2 phi1))) |
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) |
(* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))) |
(*.f64 (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2))) lambda2) |
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1)))))))) |
(*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 phi1 phi1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (/.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) lambda2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1))))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda1 (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (*.f64 phi1 phi1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (/.f64 (*.f64 phi1 phi1) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda2 lambda2)))) (/.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) lambda2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) lambda2) |
(* -1 (* lambda2 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) |
(*.f64 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda2) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) |
(*.f64 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda2) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) |
(*.f64 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda2) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R)) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (*.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) lambda2) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R)) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (*.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) lambda2) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R)) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (*.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) lambda2) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda1 (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda2 lambda2)))) (/.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (fma.f64 (*.f64 lambda1 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) #s(literal -2 binary64) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
(*.f64 (fma.f64 (*.f64 lambda1 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) #s(literal -2 binary64) (fma.f64 (/.f64 (*.f64 phi1 phi1) lambda2) (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (fma.f64 (/.f64 (*.f64 lambda1 lambda1) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))))) lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
(*.f64 (fma.f64 (*.f64 lambda1 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) #s(literal -2 binary64) (fma.f64 (/.f64 (*.f64 phi1 phi1) lambda2) (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (fma.f64 (/.f64 (*.f64 lambda1 lambda1) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))))) lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 lambda2 lambda2)) |
(/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) |
(*.f64 (/.f64 (*.f64 lambda2 lambda2) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1)) |
(* (pow lambda2 2) (- (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 (pow phi1 2)))) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) |
(*.f64 (fma.f64 (/.f64 (*.f64 #s(literal -2 binary64) lambda1) (*.f64 phi1 phi1)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (- (/ 1 (pow lambda2 2)) (+ (* -1 (/ (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))) (pow lambda2 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))) (+ (* 2 (/ phi2 (* (pow lambda2 2) phi1))) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 (pow phi1 2))))))))) |
(*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 lambda2 lambda2)) (-.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 phi2 (*.f64 phi1 (*.f64 lambda2 lambda2))) (*.f64 (/.f64 lambda1 (*.f64 phi1 phi1)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2))) (/.f64 (neg.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 phi1 phi1))) (/.f64 (fma.f64 (/.f64 (*.f64 lambda1 lambda1) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))) (*.f64 lambda2 lambda2)))) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (- (/ 1 (pow lambda2 2)) (+ (* -1 (/ (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))) (pow lambda2 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))) (+ (* 2 (/ phi2 (* (pow lambda2 2) phi1))) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 (pow phi1 2))))))))) |
(*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 lambda2 lambda2)) (-.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 phi2 (*.f64 phi1 (*.f64 lambda2 lambda2))) (*.f64 (/.f64 lambda1 (*.f64 phi1 phi1)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2))) (/.f64 (neg.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 phi1 phi1))) (/.f64 (fma.f64 (/.f64 (*.f64 lambda1 lambda1) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))) (*.f64 lambda2 lambda2)))) (*.f64 lambda2 lambda2)) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R)) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (*.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) lambda2) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda1 (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda2 lambda2)))) (/.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) |
(/.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))) phi1) |
(* (pow lambda2 2) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 phi1))))) |
(*.f64 (fma.f64 (/.f64 (*.f64 #s(literal 2 binary64) lambda1) lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (/.f64 (neg.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) phi1)) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1) (/ (pow phi2 2) phi1)) (pow lambda2 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 phi1)))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 (*.f64 #s(literal 2 binary64) lambda1) lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (/.f64 (neg.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) phi1)) (/.f64 (fma.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (/.f64 (*.f64 phi2 phi2) phi1)) (*.f64 lambda2 lambda2))) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1) (/ (pow phi2 2) phi1)) (pow lambda2 2))) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 phi1)))))) |
(*.f64 (-.f64 (fma.f64 (/.f64 (*.f64 #s(literal 2 binary64) lambda1) lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (/.f64 (neg.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) phi1)) (/.f64 (fma.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (/.f64 (*.f64 phi2 phi2) phi1)) (*.f64 lambda2 lambda2))) (*.f64 lambda2 lambda2)) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 lambda1 R) lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda2)) lambda2))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda1 lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda2)) lambda2))) |
(* -1 (* lambda2 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda2 (cos (* 1/2 phi1))))) (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 phi1 phi1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)) lambda2))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda2)) (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda1 lambda2) (/.f64 (*.f64 phi1 phi1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (/.f64 (*.f64 phi1 phi1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) lambda2)) lambda2))) |
(* -1 (* lambda2 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 lambda1 R) lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda2)) lambda2))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 lambda1 R) lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda2)) lambda2))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 lambda1 R) lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda2)) lambda2))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda1 lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda2)) lambda2))) |
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) |
(*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (fma.f64 (*.f64 lambda1 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) #s(literal -2 binary64) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 phi1 phi1) (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (fma.f64 (/.f64 (*.f64 lambda1 lambda1) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))))) lambda2))) lambda2)) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow phi1 2) (- 1 (+ (* -1 (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1))))) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 phi1 phi1) (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (fma.f64 (/.f64 (*.f64 lambda1 lambda1) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))))) lambda2))) lambda2)) (*.f64 lambda2 lambda2)) |
(/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) |
(*.f64 (/.f64 (*.f64 lambda2 lambda2) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1)) |
(* (pow lambda2 2) (- (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 (pow phi1 2)))) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) |
(*.f64 (fma.f64 (/.f64 (*.f64 #s(literal -2 binary64) lambda1) (*.f64 phi1 phi1)) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (- (* -1 (/ (- (* -1 (/ (- 1 (+ (* -1 (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1)))) lambda2)) (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))) lambda2)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) |
(*.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (fma.f64 (/.f64 (*.f64 lambda1 lambda1) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))))) lambda2) #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 #s(literal 2 binary64) lambda1) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1))) lambda2) #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (- (* -1 (/ (- (* -1 (/ (- 1 (+ (* -1 (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))) (* 2 (/ phi2 phi1)))) lambda2)) (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow phi1 2)))) lambda2)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow phi1 2))))) |
(*.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal 2 binary64)) (fma.f64 (/.f64 (*.f64 lambda1 lambda1) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))))) lambda2) #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 #s(literal 2 binary64) lambda1) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1))) lambda2) #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) (*.f64 lambda2 lambda2)) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 lambda1 R) lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda2)) lambda2))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda1 lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda2)) lambda2))) |
(* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) |
(/.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))) phi1) |
(* (pow lambda2 2) (+ (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)) (* 2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 phi1))))) |
(*.f64 (fma.f64 (/.f64 (*.f64 #s(literal 2 binary64) lambda1) lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (/.f64 (neg.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) phi1)) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 phi1)) (/ (pow phi2 2) (* lambda2 phi1)))) lambda2)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)))) |
(*.f64 (-.f64 (/.f64 (neg.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) phi1) (/.f64 (fma.f64 (*.f64 lambda1 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1)) #s(literal -2 binary64) (fma.f64 (/.f64 (*.f64 lambda1 lambda1) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (*.f64 (/.f64 phi2 lambda2) (/.f64 phi2 phi1)))) lambda2)) (*.f64 lambda2 lambda2)) |
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) phi1)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (* lambda2 phi1)) (/ (pow phi2 2) (* lambda2 phi1)))) lambda2)) (* -1 (/ (pow (cos (* 1/2 (+ phi1 phi2))) 2) phi1)))) |
(*.f64 (-.f64 (/.f64 (neg.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) phi1) (/.f64 (fma.f64 (*.f64 lambda1 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1)) #s(literal -2 binary64) (fma.f64 (/.f64 (*.f64 lambda1 lambda1) phi1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (*.f64 (/.f64 phi2 lambda2) (/.f64 phi2 phi1)))) lambda2)) (*.f64 lambda2 lambda2)) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R phi2) |
(*.f64 phi2 R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 52 | 504 |
| 0 | 84 | 411 |
| 1 | 285 | 411 |
| 2 | 1947 | 411 |
| 0 | 9545 | 376 |
| 1× | iter limit |
| 1× | node limit |
| 1× | iter limit |
| Inputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
(*.f64 R phi2) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(*.f64 R lambda1) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(neg.f64 lambda1) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)) |
(-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) |
(sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1)))) |
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1)) |
| Outputs |
|---|
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
Compiled 41 547 to 3 021 computations (92.7% saved)
35 alts after pruning (34 fresh and 1 done)
| Pruned | Kept | Total | |
|---|---|---|---|
| New | 1 048 | 20 | 1 068 |
| Fresh | 5 | 14 | 19 |
| Picked | 4 | 1 | 5 |
| Done | 0 | 0 | 0 |
| Total | 1 057 | 35 | 1 092 |
| Status | Accuracy | Program |
|---|---|---|
| 38.3% | (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (exp.f64 (log.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal -1/2 binary64))) (-.f64 lambda1 lambda2)))))) | |
| 21.7% | (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) | |
| 15.7% | (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 #s(approx (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))) (*.f64 phi1 phi1))))) | |
| 26.1% | (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))) | |
| ▶ | 68.0% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) |
| 22.9% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (exp.f64 (log.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)))) phi1))) | |
| 66.1% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) | |
| 53.7% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)) phi1))) | |
| ▶ | 34.2% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) |
| 54.9% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) | |
| 13.3% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)))))) | |
| 20.2% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) | |
| 21.3% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) | |
| 20.3% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) | |
| 21.0% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) | |
| 21.1% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) | |
| ▶ | 32.6% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
| 20.3% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) | |
| 53.9% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) phi1)))) | |
| 10.1% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2))))))) | |
| 9.5% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) | |
| 19.8% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)))) | |
| 8.6% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)))) | |
| 15.2% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (fma.f64 (neg.f64 R) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda2 lambda1)) (*.f64 R (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1)) | |
| 57.2% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2)) | |
| 53.5% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) phi2)) | |
| 11.1% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal -2 binary64))) R) lambda1)) | |
| 20.5% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) | |
| 12.1% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) | |
| ▶ | 7.4% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
| ▶ | 10.2% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
| 20.1% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) | |
| 54.4% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi1) (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R))) | |
| 15.2% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)))) | |
| ✓ | 32.7% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
Compiled 1 012 to 937 computations (7.4% saved)
| 1× | egg-herbie |
Found 19 expressions of interest:
| New | Metric | Score | Program |
|---|---|---|---|
| cost-diff | 0 | #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) | |
| cost-diff | 0 | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) | |
| cost-diff | 1024 | (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) | |
| cost-diff | 6912 | (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) | |
| cost-diff | 0 | (*.f64 R lambda2) | |
| cost-diff | 0 | (neg.f64 (*.f64 R lambda2)) | |
| cost-diff | 0 | (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) | |
| cost-diff | 0 | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) | |
| cost-diff | 0 | #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) | |
| cost-diff | 0 | (*.f64 R lambda1) | |
| cost-diff | 0 | (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) | |
| cost-diff | 0 | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) | |
| cost-diff | 0 | (neg.f64 phi1) | |
| cost-diff | 0 | #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) | |
| cost-diff | 0 | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) | |
| cost-diff | 0 | (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) | |
| cost-diff | 0 | (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) | |
| cost-diff | 0 | #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) | |
| cost-diff | 0 | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 48 | 529 |
| 0 | 72 | 529 |
| 1 | 126 | 529 |
| 2 | 256 | 513 |
| 3 | 720 | 513 |
| 4 | 2089 | 497 |
| 5 | 5907 | 497 |
| 0 | 8036 | 369 |
| 1× | iter limit |
| 1× | node limit |
| 1× | iter limit |
| Inputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) |
R |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) |
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(*.f64 phi2 #s(literal 1/2 binary64)) |
phi2 |
#s(literal 1/2 binary64) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
R |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) |
(neg.f64 phi1) |
phi1 |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
(*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(*.f64 R lambda1) |
R |
lambda1 |
#s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(*.f64 phi2 #s(literal 1/2 binary64)) |
phi2 |
#s(literal 1/2 binary64) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(neg.f64 (*.f64 R lambda2)) |
(*.f64 R lambda2) |
R |
lambda2 |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)) |
(+.f64 phi2 phi1) |
phi2 |
phi1 |
#s(literal 1/2 binary64) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) |
R |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) |
(*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) |
(-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)) |
(+.f64 phi2 phi1) |
phi2 |
phi1 |
#s(literal 1/2 binary64) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) |
(/.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
| Outputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) |
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda2 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) phi2)) R) |
R |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda2 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) phi2)) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) |
(hypot.f64 (*.f64 (-.f64 lambda2 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) phi2) |
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) |
(*.f64 phi2 #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) phi2) |
phi2 |
#s(literal 1/2 binary64) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) R) |
R |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) |
(neg.f64 phi1) |
phi1 |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 lambda1 R))) |
(*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(*.f64 #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 lambda1 R)) |
(*.f64 R lambda1) |
(*.f64 lambda1 R) |
R |
lambda1 |
#s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
#s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) |
(*.f64 phi2 #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) phi2) |
phi2 |
#s(literal 1/2 binary64) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (neg.f64 R) lambda2))) |
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (neg.f64 R) lambda2)) |
(neg.f64 (*.f64 R lambda2)) |
(*.f64 (neg.f64 R) lambda2) |
(*.f64 R lambda2) |
(*.f64 lambda2 R) |
R |
lambda2 |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) |
(*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)) |
(*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)) |
(+.f64 phi2 phi1) |
(+.f64 phi1 phi2) |
phi2 |
phi1 |
#s(literal 1/2 binary64) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) |
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 lambda2 lambda1) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) R) |
R |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 lambda2 lambda1) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) |
(*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) |
(*.f64 (-.f64 lambda2 lambda1) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) |
(-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) |
(*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)) |
(*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)) |
(+.f64 phi2 phi1) |
(+.f64 phi1 phi2) |
phi2 |
phi1 |
#s(literal 1/2 binary64) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) |
(*.f64 (/.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) |
(/.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
Found 19 expressions of interest:
| New | Metric | Score | Program |
|---|---|---|---|
| accuracy | 0.18359375 | (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) | |
| accuracy | 8.616476304667763 | (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) | |
| accuracy | 13.762816874150609 | (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) | |
| accuracy | 40.75545033899266 | #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) | |
| accuracy | 0 | (neg.f64 (*.f64 R lambda2)) | |
| accuracy | 0.18359375 | (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) | |
| accuracy | 13.762816874150609 | (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) | |
| accuracy | 56.999162890260685 | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) | |
| accuracy | 0 | (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) | |
| accuracy | 0.1953125 | (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) | |
| accuracy | 28.737003649095872 | #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) | |
| accuracy | 56.21602735809481 | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) | |
| accuracy | 0 | (neg.f64 phi1) | |
| accuracy | 0.0546875 | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) | |
| accuracy | 45.52653951055482 | #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) | |
| accuracy | 0 | (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) | |
| accuracy | 0.0546875 | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) | |
| accuracy | 0.09375 | (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) | |
| accuracy | 24.459461179182433 | #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) |
| 150.0ms | 184× | 1 | valid |
| 55.0ms | 72× | 0 | valid |
Compiled 704 to 67 computations (90.5% saved)
ival-cos: 54.0ms (34% of total)ival-mult: 48.0ms (30.2% of total)ival-hypot: 28.0ms (17.6% of total)adjust: 9.0ms (5.7% of total)ival-div: 7.0ms (4.4% of total)ival-sub: 5.0ms (3.1% of total)ival-add: 5.0ms (3.1% of total)ival-neg: 2.0ms (1.3% of total)ival-assert: 0.0ms (0% of total)ival-true: 0.0ms (0% of total)exact: 0.0ms (0% of total)| Inputs |
|---|
#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ()) |
#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ()) |
#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ()) |
#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ()) |
#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ()) |
#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ()) |
#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ()) |
#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ()) |
#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ()) |
#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ()) |
#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ()) |
#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ()) |
#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ()) |
#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ()) |
#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ()) |
#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ()) |
#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ()) |
#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ()) |
#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ()) |
#s(alt (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #<representation binary64>) () ()) |
#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ()) |
#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ()) |
| Outputs |
|---|
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (taylor 0 lambda1) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi2)))) (taylor 0 lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor 0 lambda1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor 0 lambda1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor 0 lambda1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor 0 lambda1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor 0 lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor 0 lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor 0 lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor 0 lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 phi2))) (taylor inf lambda1) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor inf lambda1) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2)))))))) (taylor inf lambda1) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* (pow lambda1 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2))))))))) (taylor inf lambda1) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 phi2))) (taylor inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (taylor inf lambda1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (- (/ (cos (* 1/2 (+ phi1 phi2))) lambda1) (/ (cos (* 1/2 (+ phi1 phi2))) lambda2))) (taylor inf lambda1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (- (/ (cos (* 1/2 (+ phi1 phi2))) lambda1) (/ (cos (* 1/2 (+ phi1 phi2))) lambda2))) (taylor inf lambda1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (- (/ (cos (* 1/2 (+ phi1 phi2))) lambda1) (/ (cos (* 1/2 (+ phi1 phi2))) lambda2))) (taylor inf lambda1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi2)))) (taylor -inf lambda1) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda1 (cos (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda1)) (* lambda2 (cos (* 1/2 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 phi2))) (taylor -inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor -inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor -inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor -inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (taylor -inf lambda1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (- (* -1 (/ (cos (* 1/2 (+ phi1 phi2))) lambda1)) (* -1 (/ (cos (* 1/2 (+ phi1 phi2))) lambda2))))) (taylor -inf lambda1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (- (* -1 (/ (cos (* 1/2 (+ phi1 phi2))) lambda1)) (* -1 (/ (cos (* 1/2 (+ phi1 phi2))) lambda2))))) (taylor -inf lambda1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (- (* -1 (/ (cos (* 1/2 (+ phi1 phi2))) lambda1)) (* -1 (/ (cos (* 1/2 (+ phi1 phi2))) lambda2))))) (taylor -inf lambda1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor -inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor -inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor -inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor -inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (- lambda1 lambda2) (taylor 0 phi2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* 1/2 (/ (* (pow phi2 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2) (taylor 0 phi2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2) (taylor 0 phi2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2) (taylor 0 phi2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (- lambda1 lambda2) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* -1/8 (* (pow phi2 2) (- lambda1 lambda2)))) lambda2) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi2 2) (- lambda1 lambda2)))))) lambda2) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda1 (cos (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1))))))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))))))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi1)) (taylor 0 phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))) (taylor 0 phi2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* phi2 (+ (* 1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1)))))))) (taylor 0 phi2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* phi2 (+ (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/48 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* 1/8 (* R (* lambda2 (cos (* 1/2 phi1)))))))))) (taylor 0 phi2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (taylor 0 phi2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (- (+ (cos (* 1/2 phi1)) (* -1 (* phi2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* 1/2 (sin (* 1/2 phi1))))))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (taylor 0 phi2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (- (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (- (* -1/8 (cos (* 1/2 phi1))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))) (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* 1/2 (sin (* 1/2 phi1))))))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (taylor 0 phi2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (- (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1/48 (sin (* 1/2 phi1))) (* 1/48 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2))))) (* -1/8 (cos (* 1/2 phi1)))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))) (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* 1/2 (sin (* 1/2 phi1))))))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (taylor 0 phi2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (* phi2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* 1/2 (sin (* 1/2 phi1))))))) (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (+ (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) (* phi2 (+ (* -1 (* lambda2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* 1/2 (sin (* 1/2 phi1)))))) (* lambda2 (* phi2 (- (* -1/8 (cos (* 1/2 phi1))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))))) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (+ (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) (* phi2 (+ (* -1 (* lambda2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* 1/2 (sin (* 1/2 phi1)))))) (* phi2 (+ (* -1 (* lambda2 (* phi2 (+ (* -1/48 (sin (* 1/2 phi1))) (* 1/48 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)))))) (* lambda2 (- (* -1/8 (cos (* 1/2 phi1))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))))))) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt 1 (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ 1 (* -1/8 (pow phi2 2))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ 1 (* (pow phi2 2) (- (* 1/384 (pow phi2 2)) 1/8))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/384 (* -1/46080 (pow phi2 2)))) 1/8))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 phi1))) lambda2) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1/2 (/ (* lambda1 (* phi2 (sin (* 1/2 phi1)))) lambda2)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* -1/8 (/ (* lambda1 (* phi2 (cos (* 1/2 phi1)))) lambda2)))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* phi2 (+ (* -1/8 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/48 (/ (* lambda1 (* phi2 (sin (* 1/2 phi1)))) lambda2)))))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt phi2 (taylor inf phi2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor inf phi2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf phi2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf phi2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf phi2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf phi2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (taylor inf phi2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (taylor inf phi2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (taylor inf phi2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (taylor inf phi2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor inf phi2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor inf phi2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor inf phi2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor inf phi2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor -inf phi2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor -inf phi2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) (taylor -inf phi2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))) (taylor -inf phi2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))) (taylor -inf phi2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))) (taylor -inf phi2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))) (taylor -inf phi2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2)) (taylor -inf phi2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2)) (taylor -inf phi2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2)) (taylor -inf phi2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2)) (taylor -inf phi2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2))) (taylor -inf phi2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2))) (taylor -inf phi2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2))) (taylor -inf phi2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2))) (taylor -inf phi2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor 0 phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor 0 phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor 0 phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor 0 phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda1 (cos (* 1/2 phi2))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2))))))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor 0 phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (taylor 0 phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 phi2))))) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2))))))) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 phi2))))) (* phi1 (+ (* 1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi2)))))))) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 phi2))))) (* phi1 (+ (* 1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/48 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* 1/8 (* R (* lambda2 (cos (* 1/2 phi2)))))))))) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (- (cos (* 1/2 phi2)) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (- (+ (cos (* 1/2 phi2)) (* -1 (* phi1 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* 1/2 (sin (* 1/2 phi2))))))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (- (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (- (* -1/8 (cos (* 1/2 phi2))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))) (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* 1/2 (sin (* 1/2 phi2))))))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (- (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/48 (sin (* 1/2 phi2))) (* 1/48 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2))))) (* -1/8 (cos (* 1/2 phi2)))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))) (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* 1/2 (sin (* 1/2 phi2))))))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (cos (* 1/2 phi2)) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* 1/2 (sin (* 1/2 phi2))))))) (* lambda2 (- (cos (* 1/2 phi2)) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (+ (* lambda2 (- (cos (* 1/2 phi2)) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) (* phi1 (+ (* -1 (* lambda2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* 1/2 (sin (* 1/2 phi2)))))) (* lambda2 (* phi1 (- (* -1/8 (cos (* 1/2 phi2))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))))) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (+ (* lambda2 (- (cos (* 1/2 phi2)) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) (* phi1 (+ (* -1 (* lambda2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* 1/2 (sin (* 1/2 phi2)))))) (* phi1 (+ (* -1 (* lambda2 (* phi1 (+ (* -1/48 (sin (* 1/2 phi2))) (* 1/48 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)))))) (* lambda2 (- (* -1/8 (cos (* 1/2 phi2))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))))))) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 phi2))) lambda2) (taylor 0 phi1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1/2 (/ (* lambda1 (* phi1 (sin (* 1/2 phi2)))) lambda2)) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (taylor 0 phi1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi1 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* -1/8 (/ (* lambda1 (* phi1 (cos (* 1/2 phi2)))) lambda2)))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (taylor 0 phi1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* phi1 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* phi1 (+ (* -1/8 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/48 (/ (* lambda1 (* phi1 (sin (* 1/2 phi2)))) lambda2)))))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (taylor 0 phi1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt phi1 (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt phi1 (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ()) |
#s(alt (* R phi1) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R phi1) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor inf phi1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor inf phi1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor inf phi1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor inf phi1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt phi1 (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2)) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2)) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2)) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2)) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2))) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2))) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2))) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2))) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2) (taylor -inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2) (taylor -inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2) (taylor -inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2) (taylor -inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (taylor 0 lambda2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 phi2))) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor 0 lambda2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor 0 lambda2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor 0 lambda2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor 0 lambda2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor 0 lambda2) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor 0 lambda2) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor 0 lambda2) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor 0 lambda2) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor 0 lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor 0 lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor 0 lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor 0 lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (taylor 0 lambda2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (/ (- (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2) (taylor 0 lambda2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (/ (- (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2) (taylor 0 lambda2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (/ (- (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2) (taylor 0 lambda2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (cos (* 1/2 phi2))) (taylor inf lambda2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))) (taylor inf lambda2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2)))))))) (taylor inf lambda2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* (pow lambda2 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2))))))))) (taylor inf lambda2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi2)))) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor inf lambda2) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor inf lambda2) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor inf lambda2) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor inf lambda2) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor inf lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor inf lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor inf lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor inf lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf lambda2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor inf lambda2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor inf lambda2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor inf lambda2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi2)))) (taylor -inf lambda2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda2 (cos (* 1/2 phi2))))) (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda2)) (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi2)))) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor -inf lambda2) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor -inf lambda2) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor -inf lambda2) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor -inf lambda2) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor -inf lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor -inf lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor -inf lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor -inf lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor -inf lambda2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor -inf lambda2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor -inf lambda2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor -inf lambda2) (#s(alt (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) (patch (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) (patch (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor 0 R) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor 0 R) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor 0 R) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor 0 R) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor 0 R) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor 0 R) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor 0 R) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor 0 R) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor 0 R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor 0 R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor 0 R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor 0 R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf R) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf R) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf R) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf R) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor inf R) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor inf R) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor inf R) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor inf R) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor inf R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor inf R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor inf R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor inf R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf R) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf R) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf R) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf R) (#s(alt (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor -inf R) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor -inf R) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor -inf R) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda2)) (taylor -inf R) (#s(alt (neg.f64 (*.f64 R lambda2)) (patch (neg.f64 (*.f64 R lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor -inf R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor -inf R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor -inf R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda2) (taylor -inf R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) #<representation binary64>) () ())) ()) |
15 calls:
| Time | Variable | Point | Expression | |
|---|---|---|---|---|
| 31.0ms | phi1 | @ | 0 | ((* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg phi1) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda1) (cos (* (+ phi2 phi1) 1/2))) (* R lambda1) (cos (* (+ phi2 phi1) 1/2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (neg (* R lambda2)) (cos (* (+ phi2 phi1) 1/2))) (neg (* R lambda2)) (* R lambda2) (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) (* (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) lambda2) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (cos (* phi2 1/2)) (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) |
| 28.0ms | lambda1 | @ | inf | ((* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg phi1) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda1) (cos (* (+ phi2 phi1) 1/2))) (* R lambda1) (cos (* (+ phi2 phi1) 1/2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (neg (* R lambda2)) (cos (* (+ phi2 phi1) 1/2))) (neg (* R lambda2)) (* R lambda2) (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) (* (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) lambda2) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (cos (* phi2 1/2)) (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) |
| 14.0ms | phi1 | @ | inf | ((* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg phi1) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda1) (cos (* (+ phi2 phi1) 1/2))) (* R lambda1) (cos (* (+ phi2 phi1) 1/2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (neg (* R lambda2)) (cos (* (+ phi2 phi1) 1/2))) (neg (* R lambda2)) (* R lambda2) (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) (* (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) lambda2) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (cos (* phi2 1/2)) (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) |
| 8.0ms | R | @ | inf | ((* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg phi1) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda1) (cos (* (+ phi2 phi1) 1/2))) (* R lambda1) (cos (* (+ phi2 phi1) 1/2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (neg (* R lambda2)) (cos (* (+ phi2 phi1) 1/2))) (neg (* R lambda2)) (* R lambda2) (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) (* (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) lambda2) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (cos (* phi2 1/2)) (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) |
| 4.0ms | lambda1 | @ | 0 | ((* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg phi1) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda1) (cos (* (+ phi2 phi1) 1/2))) (* R lambda1) (cos (* (+ phi2 phi1) 1/2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (neg (* R lambda2)) (cos (* (+ phi2 phi1) 1/2))) (neg (* R lambda2)) (* R lambda2) (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) (* (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) lambda2) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (cos (* phi2 1/2)) (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) |
| 1× | egg-herbie |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 1189 | 30897 |
| 1 | 3975 | 29012 |
| 0 | 8225 | 26857 |
| 1× | iter limit |
| 1× | node limit |
| Inputs |
|---|
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3)))))))))) |
(* -1 (* lambda2 (cos (* 1/2 phi2)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(cos (* 1/2 (+ phi1 phi2))) |
(+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(+ (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(* lambda1 (cos (* 1/2 phi2))) |
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2)))))))) |
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* (pow lambda1 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2))))))))) |
(* lambda1 (cos (* 1/2 phi2))) |
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(* lambda1 (- (/ (cos (* 1/2 (+ phi1 phi2))) lambda1) (/ (cos (* 1/2 (+ phi1 phi2))) lambda2))) |
(* lambda1 (- (/ (cos (* 1/2 (+ phi1 phi2))) lambda1) (/ (cos (* 1/2 (+ phi1 phi2))) lambda2))) |
(* lambda1 (- (/ (cos (* 1/2 (+ phi1 phi2))) lambda1) (/ (cos (* 1/2 (+ phi1 phi2))) lambda2))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))) |
(* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))) |
(* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(* -1 (* lambda1 (cos (* 1/2 phi2)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda1 (cos (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2)))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda1)) (* lambda2 (cos (* 1/2 phi2)))) lambda1))))) |
(* lambda1 (cos (* 1/2 phi2))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(* -1 (* lambda1 (- (* -1 (/ (cos (* 1/2 (+ phi1 phi2))) lambda1)) (* -1 (/ (cos (* 1/2 (+ phi1 phi2))) lambda2))))) |
(* -1 (* lambda1 (- (* -1 (/ (cos (* 1/2 (+ phi1 phi2))) lambda1)) (* -1 (/ (cos (* 1/2 (+ phi1 phi2))) lambda2))))) |
(* -1 (* lambda1 (- (* -1 (/ (cos (* 1/2 (+ phi1 phi2))) lambda1)) (* -1 (/ (cos (* 1/2 (+ phi1 phi2))) lambda2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(- lambda1 lambda2) |
(- (+ lambda1 (* 1/2 (/ (* (pow phi2 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2) |
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2) |
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2) |
(- lambda1 lambda2) |
(- (+ lambda1 (* -1/8 (* (pow phi2 2) (- lambda1 lambda2)))) lambda2) |
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi2 2) (- lambda1 lambda2)))))) lambda2) |
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(* R (* lambda1 (cos (* 1/2 phi1)))) |
(+ (* -1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda1 (cos (* 1/2 phi1))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1))))))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))))))))) |
(cos (* 1/2 phi1)) |
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) |
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))) |
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* phi2 (+ (* 1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1)))))))) |
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* phi2 (+ (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/48 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* 1/8 (* R (* lambda2 (cos (* 1/2 phi1)))))))))) |
(- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) |
(- (+ (cos (* 1/2 phi1)) (* -1 (* phi2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* 1/2 (sin (* 1/2 phi1))))))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) |
(- (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (- (* -1/8 (cos (* 1/2 phi1))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))) (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* 1/2 (sin (* 1/2 phi1))))))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) |
(- (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1/48 (sin (* 1/2 phi1))) (* 1/48 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2))))) (* -1/8 (cos (* 1/2 phi1)))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))) (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* 1/2 (sin (* 1/2 phi1))))))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) |
(* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) |
(+ (* -1 (* lambda2 (* phi2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* 1/2 (sin (* 1/2 phi1))))))) (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))) |
(+ (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) (* phi2 (+ (* -1 (* lambda2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* 1/2 (sin (* 1/2 phi1)))))) (* lambda2 (* phi2 (- (* -1/8 (cos (* 1/2 phi1))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))))) |
(+ (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) (* phi2 (+ (* -1 (* lambda2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* 1/2 (sin (* 1/2 phi1)))))) (* phi2 (+ (* -1 (* lambda2 (* phi2 (+ (* -1/48 (sin (* 1/2 phi1))) (* 1/48 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)))))) (* lambda2 (- (* -1/8 (cos (* 1/2 phi1))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))))))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
1 |
(+ 1 (* -1/8 (pow phi2 2))) |
(+ 1 (* (pow phi2 2) (- (* 1/384 (pow phi2 2)) 1/8))) |
(+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/384 (* -1/46080 (pow phi2 2)))) 1/8))) |
(cos (* 1/2 phi1)) |
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) |
(/ (* lambda1 (cos (* 1/2 phi1))) lambda2) |
(+ (* -1/2 (/ (* lambda1 (* phi2 (sin (* 1/2 phi1)))) lambda2)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) |
(+ (* phi2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* -1/8 (/ (* lambda1 (* phi2 (cos (* 1/2 phi1)))) lambda2)))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) |
(+ (* phi2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* phi2 (+ (* -1/8 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/48 (/ (* lambda1 (* phi2 (sin (* 1/2 phi1)))) lambda2)))))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) |
(* R phi2) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
phi2 |
(* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(* R phi2) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(* R phi2) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(* R phi2) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(* R phi2) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(cos (* 1/2 phi2)) |
(cos (* 1/2 phi2)) |
(cos (* 1/2 phi2)) |
(cos (* 1/2 phi2)) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(* -1 (* R phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(* -1 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(* -1 phi2) |
(* -1 (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(* -1 (* R phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(* -1 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(* -1 (* R phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(* -1 (* R phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))) |
(- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2)) |
(- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2)) |
(- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2)) |
(- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2)) |
(* lambda2 (- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2))) |
(* lambda2 (- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2))) |
(* lambda2 (- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2))) |
(* lambda2 (- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2))) |
(* -1 (* R phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(* -1 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(cos (* 1/2 phi2)) |
(cos (* 1/2 phi2)) |
(cos (* 1/2 phi2)) |
(cos (* 1/2 phi2)) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(* -1 phi1) |
(* -1 phi1) |
(* -1 phi1) |
(* -1 phi1) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(* R (* lambda1 (cos (* 1/2 phi2)))) |
(+ (* -1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda1 (cos (* 1/2 phi2))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2))))))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))))))))) |
(cos (* 1/2 phi2)) |
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 phi2))))) |
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2))))))) |
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi2))))) (* phi1 (+ (* 1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi2)))))))) |
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi2))))) (* phi1 (+ (* 1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/48 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* 1/8 (* R (* lambda2 (cos (* 1/2 phi2)))))))))) |
(- (cos (* 1/2 phi2)) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) |
(- (+ (cos (* 1/2 phi2)) (* -1 (* phi1 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* 1/2 (sin (* 1/2 phi2))))))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) |
(- (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (- (* -1/8 (cos (* 1/2 phi2))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))) (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* 1/2 (sin (* 1/2 phi2))))))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) |
(- (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/48 (sin (* 1/2 phi2))) (* 1/48 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2))))) (* -1/8 (cos (* 1/2 phi2)))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))) (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* 1/2 (sin (* 1/2 phi2))))))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) |
(* lambda2 (- (cos (* 1/2 phi2)) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) |
(+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* 1/2 (sin (* 1/2 phi2))))))) (* lambda2 (- (cos (* 1/2 phi2)) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))) |
(+ (* lambda2 (- (cos (* 1/2 phi2)) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) (* phi1 (+ (* -1 (* lambda2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* 1/2 (sin (* 1/2 phi2)))))) (* lambda2 (* phi1 (- (* -1/8 (cos (* 1/2 phi2))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))))) |
(+ (* lambda2 (- (cos (* 1/2 phi2)) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) (* phi1 (+ (* -1 (* lambda2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* 1/2 (sin (* 1/2 phi2)))))) (* phi1 (+ (* -1 (* lambda2 (* phi1 (+ (* -1/48 (sin (* 1/2 phi2))) (* 1/48 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)))))) (* lambda2 (- (* -1/8 (cos (* 1/2 phi2))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))))))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(cos (* 1/2 phi2)) |
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) |
(/ (* lambda1 (cos (* 1/2 phi2))) lambda2) |
(+ (* -1/2 (/ (* lambda1 (* phi1 (sin (* 1/2 phi2)))) lambda2)) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) |
(+ (* phi1 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* -1/8 (/ (* lambda1 (* phi1 (cos (* 1/2 phi2)))) lambda2)))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) |
(+ (* phi1 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* phi1 (+ (* -1/8 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/48 (/ (* lambda1 (* phi1 (sin (* 1/2 phi2)))) lambda2)))))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) |
(* R phi1) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(* R phi1) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(* -1 phi1) |
(* -1 phi1) |
(* -1 phi1) |
(* -1 phi1) |
(* R phi1) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(* R phi1) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(* R phi1) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(* -1 (* R phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(* -1 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(* -1 (* R phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(* -1 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(* -1 phi1) |
(* -1 phi1) |
(* -1 phi1) |
(* -1 phi1) |
(* -1 (* R phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(* -1 (* R phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))) |
(- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2)) |
(- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2)) |
(- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2)) |
(- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2)) |
(* lambda2 (- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2))) |
(* lambda2 (- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2))) |
(* lambda2 (- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2))) |
(* lambda2 (- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2))) |
(* -1 (* R phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(* -1 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3)))))))))) |
(* lambda1 (cos (* 1/2 phi2))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R lambda2)) |
(* -1 (* R lambda2)) |
(* -1 (* R lambda2)) |
(* -1 (* R lambda2)) |
(* R lambda2) |
(* R lambda2) |
(* R lambda2) |
(* R lambda2) |
(* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(/ (- (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2) |
(/ (- (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2) |
(/ (- (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(* lambda2 (cos (* 1/2 phi2))) |
(* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))) |
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2)))))))) |
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* (pow lambda2 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2))))))))) |
(* -1 (* lambda2 (cos (* 1/2 phi2)))) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R lambda2)) |
(* -1 (* R lambda2)) |
(* -1 (* R lambda2)) |
(* -1 (* R lambda2)) |
(* R lambda2) |
(* R lambda2) |
(* R lambda2) |
(* R lambda2) |
(cos (* 1/2 (+ phi1 phi2))) |
(+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(* -1 (* lambda2 (cos (* 1/2 phi2)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda2 (cos (* 1/2 phi2))))) (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda2)) (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) |
(* -1 (* lambda2 (cos (* 1/2 phi2)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R lambda2)) |
(* -1 (* R lambda2)) |
(* -1 (* R lambda2)) |
(* -1 (* R lambda2)) |
(* R lambda2) |
(* R lambda2) |
(* R lambda2) |
(* R lambda2) |
(cos (* 1/2 (+ phi1 phi2))) |
(+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(* -1 (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(* -1 (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(* -1 (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R lambda2)) |
(* -1 (* R lambda2)) |
(* -1 (* R lambda2)) |
(* -1 (* R lambda2)) |
(* R lambda2) |
(* R lambda2) |
(* R lambda2) |
(* R lambda2) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R lambda2)) |
(* -1 (* R lambda2)) |
(* -1 (* R lambda2)) |
(* -1 (* R lambda2)) |
(* R lambda2) |
(* R lambda2) |
(* R lambda2) |
(* R lambda2) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R lambda2)) |
(* -1 (* R lambda2)) |
(* -1 (* R lambda2)) |
(* -1 (* R lambda2)) |
(* R lambda2) |
(* R lambda2) |
(* R lambda2) |
(* R lambda2) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
| Outputs |
|---|
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 lambda2 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda1 (*.f64 (neg.f64 (*.f64 (*.f64 lambda2 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda1) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda1 (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) phi2) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) phi2)) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2))))) lambda1) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) phi2)) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)))))) lambda1) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2))))))) lambda1 (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)))))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) phi2)) |
(* -1 (* lambda2 (cos (* 1/2 phi2)))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 lambda2 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda1 (*.f64 (neg.f64 (*.f64 (*.f64 lambda2 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda1) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda1 (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 lambda2 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda1 (*.f64 (neg.f64 (*.f64 (*.f64 lambda2 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 lambda2 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda1 (*.f64 (neg.f64 (*.f64 (*.f64 lambda2 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) |
(+ (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)) |
(+ (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)) |
(+ (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 lambda2 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda1 (*.f64 (neg.f64 (*.f64 (*.f64 lambda2 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda1) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda1 (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (*.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 R (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda1) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda2 (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (cos (* 1/2 phi2))) |
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2)))))))) |
(*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda1)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* (pow lambda1 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2))))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda2 (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda1)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (cos (* 1/2 phi2))) |
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda1) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (*.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 R (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda1) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda2 (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (*.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 R (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda1) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (*.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 R (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda1) |
(* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(/.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda1 (- (/ (cos (* 1/2 (+ phi1 phi2))) lambda1) (/ (cos (* 1/2 (+ phi1 phi2))) lambda2))) |
(*.f64 (-.f64 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) lambda1) |
(* lambda1 (- (/ (cos (* 1/2 (+ phi1 phi2))) lambda1) (/ (cos (* 1/2 (+ phi1 phi2))) lambda2))) |
(*.f64 (-.f64 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) lambda1) |
(* lambda1 (- (/ (cos (* 1/2 (+ phi1 phi2))) lambda1) (/ (cos (* 1/2 (+ phi1 phi2))) lambda2))) |
(*.f64 (-.f64 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) lambda1) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))) |
(*.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (neg.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1) |
(* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))) |
(*.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (neg.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1) |
(* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))) |
(*.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (neg.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (*.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 R (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda1) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda2 (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (*.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) lambda1)) lambda1))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) lambda1))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda1)) lambda1))) |
(* -1 (* lambda1 (cos (* 1/2 phi2)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda1 (cos (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)) lambda1))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda1)) (* lambda2 (cos (* 1/2 phi2)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) lambda1)) lambda1))) |
(* lambda1 (cos (* 1/2 phi2))) |
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(*.f64 (neg.f64 lambda1) (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(*.f64 (neg.f64 lambda1) (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(*.f64 (neg.f64 lambda1) (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (*.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) lambda1)) lambda1))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) lambda1))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda1)) lambda1))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (*.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) lambda1)) lambda1))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (*.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) lambda1)) lambda1))) |
(* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(/.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* -1 (* lambda1 (- (* -1 (/ (cos (* 1/2 (+ phi1 phi2))) lambda1)) (* -1 (/ (cos (* 1/2 (+ phi1 phi2))) lambda2))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) #s(literal -1 binary64) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2))) |
(* -1 (* lambda1 (- (* -1 (/ (cos (* 1/2 (+ phi1 phi2))) lambda1)) (* -1 (/ (cos (* 1/2 (+ phi1 phi2))) lambda2))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) #s(literal -1 binary64) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2))) |
(* -1 (* lambda1 (- (* -1 (/ (cos (* 1/2 (+ phi1 phi2))) lambda1)) (* -1 (/ (cos (* 1/2 (+ phi1 phi2))) lambda2))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) #s(literal -1 binary64) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (*.f64 R (/.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) lambda1)) lambda1))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) lambda1))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda1)) lambda1))) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 R) (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) phi2 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) R)))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) phi2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) phi2 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (+.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal -1/2 binary64))) phi2)))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(- lambda1 lambda2) |
(-.f64 lambda1 lambda2) |
(- (+ lambda1 (* 1/2 (/ (* (pow phi2 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2) |
(-.f64 (fma.f64 (/.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 phi2 phi2)) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) lambda1) lambda2) |
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2) |
(-.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 phi2 phi2) (/.f64 (fma.f64 #s(literal 1/48 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 lambda1 lambda2)))) (*.f64 phi2 phi2) lambda1) lambda2) |
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2) |
(-.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 phi2 phi2) (/.f64 (fma.f64 #s(literal -1/1440 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (/.f64 (fma.f64 #s(literal 1/48 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal -1/2 binary64))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 #s(literal 1/48 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (-.f64 lambda1 lambda2)))) (*.f64 phi2 phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64))) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2) lambda1) lambda2) |
(- lambda1 lambda2) |
(-.f64 lambda1 lambda2) |
(- (+ lambda1 (* -1/8 (* (pow phi2 2) (- lambda1 lambda2)))) lambda2) |
(-.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2)) (-.f64 lambda1 lambda2) lambda1) lambda2) |
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi2 2) (- lambda1 lambda2)))))) lambda2) |
(-.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (fma.f64 #s(literal 1/384 binary64) (*.f64 phi2 phi2) #s(literal -1/8 binary64))) (*.f64 phi2 phi2) lambda1) lambda2) |
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2) |
(-.f64 (fma.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (fma.f64 #s(literal -1/46080 binary64) (*.f64 phi2 phi2) #s(literal 1/384 binary64))) (*.f64 phi2 phi2) (*.f64 #s(literal -1/8 binary64) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2) lambda1) lambda2) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 R) (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) phi2 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) R)))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) phi2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) phi2 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (+.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal -1/2 binary64))) phi2)))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 R) (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) phi2 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) R)))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(* R (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (* -1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda1 (cos (* 1/2 phi1))))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (*.f64 lambda1 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 (*.f64 lambda1 phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) phi2 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (*.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) R) (*.f64 (*.f64 lambda1 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal -1/8 binary64))) phi2)) phi2 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(cos (* 1/2 phi1)) |
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 R) (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) phi2 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) R)))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) |
(*.f64 (*.f64 (neg.f64 lambda2) R) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (neg.f64 lambda2) R) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* phi2 (+ (* 1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1)))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 (*.f64 lambda2 phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (*.f64 lambda2 R) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) phi2 (*.f64 (*.f64 (neg.f64 lambda2) R) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi1))))) (* phi2 (+ (* 1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/48 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* 1/8 (* R (* lambda2 (cos (* 1/2 phi1)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) (*.f64 (*.f64 #s(literal -1/48 binary64) R) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) phi2)) phi2 (*.f64 (*.f64 (neg.f64 lambda2) R) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) |
(-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2))) |
(- (+ (cos (* 1/2 phi1)) (* -1 (* phi2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* 1/2 (sin (* 1/2 phi1))))))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) |
(-.f64 (fma.f64 (neg.f64 phi2) (fma.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)) #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2))) |
(- (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (- (* -1/8 (cos (* 1/2 phi1))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))) (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* 1/2 (sin (* 1/2 phi1))))))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) |
(-.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)))) phi2 (neg.f64 (fma.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)) #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) phi2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2))) |
(- (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1/48 (sin (* 1/2 phi1))) (* 1/48 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2))))) (* -1/8 (cos (* 1/2 phi1)))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))) (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* 1/2 (sin (* 1/2 phi1))))))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) |
(-.f64 (fma.f64 (fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)) #s(literal 1/48 binary64) (*.f64 #s(literal -1/48 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) phi2 (*.f64 #s(literal -1/8 binary64) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2))))) phi2 (neg.f64 (fma.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)) #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) phi2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2))) |
(* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) |
(*.f64 (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2))) lambda2) |
(+ (* -1 (* lambda2 (* phi2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* 1/2 (sin (* 1/2 phi1))))))) (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))) |
(fma.f64 (neg.f64 lambda2) (*.f64 (fma.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)) #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) phi2) (*.f64 (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2))) lambda2)) |
(+ (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) (* phi2 (+ (* -1 (* lambda2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* 1/2 (sin (* 1/2 phi1)))))) (* lambda2 (* phi2 (- (* -1/8 (cos (* 1/2 phi1))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))))) |
(fma.f64 (fma.f64 (*.f64 lambda2 phi2) (*.f64 #s(literal -1/8 binary64) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)))) (*.f64 (neg.f64 lambda2) (fma.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)) #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) phi2 (*.f64 (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2))) lambda2)) |
(+ (* lambda2 (- (cos (* 1/2 phi1)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) (* phi2 (+ (* -1 (* lambda2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* 1/2 (sin (* 1/2 phi1)))))) (* phi2 (+ (* -1 (* lambda2 (* phi2 (+ (* -1/48 (sin (* 1/2 phi1))) (* 1/48 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)))))) (* lambda2 (- (* -1/8 (cos (* 1/2 phi1))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))))))) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)))) lambda2 (*.f64 (neg.f64 (*.f64 lambda2 phi2)) (fma.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)) #s(literal 1/48 binary64) (*.f64 #s(literal -1/48 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) phi2 (*.f64 (neg.f64 lambda2) (fma.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)) #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) phi2 (*.f64 (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2))) lambda2)) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 R) (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) phi2 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) R)))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) phi2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) phi2 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (+.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal -1/2 binary64))) phi2)))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
1 |
#s(literal 1 binary64) |
(+ 1 (* -1/8 (pow phi2 2))) |
(fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)) |
(+ 1 (* (pow phi2 2) (- (* 1/384 (pow phi2 2)) 1/8))) |
(fma.f64 (fma.f64 #s(literal 1/384 binary64) (*.f64 phi2 phi2) #s(literal -1/8 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) |
(+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/384 (* -1/46080 (pow phi2 2)))) 1/8))) |
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 phi2 phi2) #s(literal 1/384 binary64)) (*.f64 phi2 phi2) #s(literal -1/8 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) |
(cos (* 1/2 phi1)) |
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(/ (* lambda1 (cos (* 1/2 phi1))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)) |
(+ (* -1/2 (/ (* lambda1 (* phi2 (sin (* 1/2 phi1)))) lambda2)) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) |
(fma.f64 (/.f64 (*.f64 (*.f64 lambda1 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) lambda2) #s(literal -1/2 binary64) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2))) |
(+ (* phi2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* -1/8 (/ (* lambda1 (* phi2 (cos (* 1/2 phi1)))) lambda2)))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) |
(fma.f64 (fma.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)) #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 lambda1 phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) lambda2) #s(literal -1/8 binary64))) phi2 (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2))) |
(+ (* phi2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi1))) lambda2)) (* phi2 (+ (* -1/8 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/48 (/ (* lambda1 (* phi2 (sin (* 1/2 phi1)))) lambda2)))))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)) #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (*.f64 lambda1 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) lambda2) #s(literal 1/48 binary64))) phi2 (*.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)) #s(literal -1/2 binary64))) phi2 (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2))) |
(* R phi2) |
(*.f64 phi2 R) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 R) (/.f64 phi1 phi2))) R) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(*.f64 (+.f64 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) R) phi2) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64) (/.f64 (neg.f64 phi1) phi2)) phi2 phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(fma.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi2) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2) (*.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64))))) (/.f64 (neg.f64 phi1) phi2)) phi2 phi2) |
phi2 |
(* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64) #s(literal 1 binary64)) phi2) |
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))) #s(literal -1/8 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64))) phi2 phi2) |
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))) #s(literal -1/8 binary64) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi2 #s(literal 6 binary64)))) #s(literal 1/16 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64)))) phi2 phi2) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* R phi2) |
(*.f64 phi2 R) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 R) (/.f64 phi1 phi2))) R) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(*.f64 (+.f64 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) R) phi2) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64) (/.f64 (neg.f64 phi1) phi2)) phi2 phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(fma.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi2) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2) (*.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64))))) (/.f64 (neg.f64 phi1) phi2)) phi2 phi2) |
(* R phi2) |
(*.f64 phi2 R) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 R) (/.f64 phi1 phi2))) R) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(*.f64 (+.f64 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) R) phi2) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* R phi2) |
(*.f64 phi2 R) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 R) (/.f64 phi1 phi2))) R) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(*.f64 (+.f64 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) R) phi2) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* R phi2) |
(*.f64 phi2 R) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 R) (/.f64 phi1 phi2))) R) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(*.f64 (+.f64 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) R) phi2) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64) (/.f64 (neg.f64 phi1) phi2)) phi2 phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(fma.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi2) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2) (*.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64))))) (/.f64 (neg.f64 phi1) phi2)) phi2 phi2) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(* -1 (* R phi2)) |
(*.f64 (neg.f64 R) phi2) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))) #s(literal -1/2 binary64) (*.f64 phi1 R)) phi2)) (neg.f64 phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi1 R (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)))))) phi2))) phi2)) (neg.f64 phi2)) |
(* -1 phi2) |
(neg.f64 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)) #s(literal -1/2 binary64) phi1) phi2)) (neg.f64 phi2)) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) phi2)) phi2)) (neg.f64 phi2)) |
(* -1 phi2) |
(neg.f64 phi2) |
(* -1 (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(*.f64 (neg.f64 phi2) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64) #s(literal 1 binary64))) |
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(neg.f64 (fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))) #s(literal -1/8 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64))) phi2 phi2)) |
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
(neg.f64 (fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))) #s(literal -1/8 binary64) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi2 #s(literal 6 binary64)))) #s(literal 1/16 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64)))) phi2 phi2)) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* -1 (* R phi2)) |
(*.f64 (neg.f64 R) phi2) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))) #s(literal -1/2 binary64) (*.f64 phi1 R)) phi2)) (neg.f64 phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi1 R (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)))))) phi2))) phi2)) (neg.f64 phi2)) |
(* -1 phi2) |
(neg.f64 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)) #s(literal -1/2 binary64) phi1) phi2)) (neg.f64 phi2)) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) phi2)) phi2)) (neg.f64 phi2)) |
(* -1 (* R phi2)) |
(*.f64 (neg.f64 R) phi2) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))) #s(literal -1/2 binary64) (*.f64 phi1 R)) phi2)) (neg.f64 phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi1 R (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)))))) phi2))) phi2)) (neg.f64 phi2)) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* -1 (* R phi2)) |
(*.f64 (neg.f64 R) phi2) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))) #s(literal -1/2 binary64) (*.f64 phi1 R)) phi2)) (neg.f64 phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi1 R (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)))))) phi2))) phi2)) (neg.f64 phi2)) |
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2)) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2)) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2)) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2)) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (- (cos (* 1/2 (- phi1 (* -1 phi2)))) (/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* -1 (* R phi2)) |
(*.f64 (neg.f64 R) phi2) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))) #s(literal -1/2 binary64) (*.f64 phi1 R)) phi2)) (neg.f64 phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi1 R (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)))))) phi2))) phi2)) (neg.f64 phi2)) |
(* -1 phi2) |
(neg.f64 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)) #s(literal -1/2 binary64) phi1) phi2)) (neg.f64 phi2)) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) phi2)) phi2)) (neg.f64 phi2)) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) phi1 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) R)))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) phi1 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2))))) phi1 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (+.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal -1/2 binary64))) phi1)))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2)) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) phi1 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) R)))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) phi1 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2))))) phi1 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (+.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal -1/2 binary64))) phi1)))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2)) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 phi1) |
(neg.f64 phi1) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) phi1 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) R)))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(* R (* lambda1 (cos (* 1/2 phi2)))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (* -1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda1 (cos (* 1/2 phi2))))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (*.f64 lambda1 phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 (*.f64 lambda1 phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) phi1 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (*.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) R) (*.f64 (*.f64 lambda1 phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal -1/8 binary64))) phi1)) phi1 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) phi1 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) R)))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(* -1 (* R (* lambda2 (cos (* 1/2 phi2))))) |
(*.f64 (*.f64 (neg.f64 lambda2) R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (*.f64 lambda2 phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (neg.f64 lambda2) R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi2))))) (* phi1 (+ (* 1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))) (* 1/2 (* R (* lambda2 (sin (* 1/2 phi2)))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 (*.f64 lambda2 phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (*.f64 lambda2 R) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) phi1 (*.f64 (*.f64 (neg.f64 lambda2) R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(+ (* -1 (* R (* lambda2 (cos (* 1/2 phi2))))) (* phi1 (+ (* 1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/48 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* 1/8 (* R (* lambda2 (cos (* 1/2 phi2)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (*.f64 (*.f64 #s(literal -1/48 binary64) R) (*.f64 (*.f64 lambda2 phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) phi1)) phi1 (*.f64 (*.f64 (neg.f64 lambda2) R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(- (cos (* 1/2 phi2)) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(- (+ (cos (* 1/2 phi2)) (* -1 (* phi1 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* 1/2 (sin (* 1/2 phi2))))))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) |
(-.f64 (fma.f64 (fma.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)) #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) (neg.f64 phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2))) |
(- (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (- (* -1/8 (cos (* 1/2 phi2))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))) (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* 1/2 (sin (* 1/2 phi2))))))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) |
(-.f64 (fma.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1) (fma.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)) #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2))) |
(- (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/48 (sin (* 1/2 phi2))) (* 1/48 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2))))) (* -1/8 (cos (* 1/2 phi2)))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))) (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* 1/2 (sin (* 1/2 phi2))))))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) |
(-.f64 (fma.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)) #s(literal 1/48 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/48 binary64))) (neg.f64 phi1) (*.f64 #s(literal -1/8 binary64) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) phi1 (neg.f64 (fma.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)) #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2))) |
(* lambda2 (- (cos (* 1/2 phi2)) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda2) |
(+ (* -1 (* lambda2 (* phi1 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* 1/2 (sin (* 1/2 phi2))))))) (* lambda2 (- (cos (* 1/2 phi2)) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))) |
(fma.f64 (neg.f64 (*.f64 lambda2 phi1)) (fma.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)) #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda2)) |
(+ (* lambda2 (- (cos (* 1/2 phi2)) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) (* phi1 (+ (* -1 (* lambda2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* 1/2 (sin (* 1/2 phi2)))))) (* lambda2 (* phi1 (- (* -1/8 (cos (* 1/2 phi2))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))))) |
(fma.f64 (fma.f64 (*.f64 lambda2 phi1) (*.f64 #s(literal -1/8 binary64) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (*.f64 (neg.f64 lambda2) (fma.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)) #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) phi1 (*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda2)) |
(+ (* lambda2 (- (cos (* 1/2 phi2)) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) (* phi1 (+ (* -1 (* lambda2 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* 1/2 (sin (* 1/2 phi2)))))) (* phi1 (+ (* -1 (* lambda2 (* phi1 (+ (* -1/48 (sin (* 1/2 phi2))) (* 1/48 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)))))) (* lambda2 (- (* -1/8 (cos (* 1/2 phi2))) (* -1/8 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))))))) |
(fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)) #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) lambda2 (*.f64 (fma.f64 (neg.f64 (*.f64 lambda2 phi1)) (fma.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)) #s(literal 1/48 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/48 binary64))) (*.f64 (*.f64 #s(literal -1/8 binary64) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) lambda2)) phi1)) phi1 (*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda2)) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) phi1 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) R)))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) phi1 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2))))) phi1 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (+.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal -1/2 binary64))) phi1)))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2)) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(/ (* lambda1 (cos (* 1/2 phi2))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)) |
(+ (* -1/2 (/ (* lambda1 (* phi1 (sin (* 1/2 phi2)))) lambda2)) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) |
(fma.f64 (/.f64 (*.f64 (*.f64 lambda1 phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda2) #s(literal -1/2 binary64) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2))) |
(+ (* phi1 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* -1/8 (/ (* lambda1 (* phi1 (cos (* 1/2 phi2)))) lambda2)))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) |
(fma.f64 (fma.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)) #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 lambda1 phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda2) #s(literal -1/8 binary64))) phi1 (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2))) |
(+ (* phi1 (+ (* -1/2 (/ (* lambda1 (sin (* 1/2 phi2))) lambda2)) (* phi1 (+ (* -1/8 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/48 (/ (* lambda1 (* phi1 (sin (* 1/2 phi2)))) lambda2)))))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)) #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (*.f64 lambda1 phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda2) #s(literal 1/48 binary64))) phi1 (*.f64 (*.f64 lambda1 (/.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)) #s(literal -1/2 binary64))) phi1 (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2))) |
(* R phi1) |
(*.f64 phi1 R) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 R) (/.f64 phi2 phi1))) R) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(*.f64 (+.f64 (fma.f64 (neg.f64 R) (/.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) R) phi1) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) (/.f64 (neg.f64 phi2) phi1)) phi1 phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(fma.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1) (*.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64))))) (/.f64 (neg.f64 phi2) phi1)) phi1 phi1) |
(* R phi1) |
(*.f64 phi1 R) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 R) (/.f64 phi2 phi1))) R) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(*.f64 (+.f64 (fma.f64 (neg.f64 R) (/.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) R) phi1) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) (/.f64 (neg.f64 phi2) phi1)) phi1 phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(fma.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1) (*.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64))))) (/.f64 (neg.f64 phi2) phi1)) phi1 phi1) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 phi1) |
(neg.f64 phi1) |
(* R phi1) |
(*.f64 phi1 R) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 R) (/.f64 phi2 phi1))) R) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(*.f64 (+.f64 (fma.f64 (neg.f64 R) (/.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) R) phi1) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* R phi1) |
(*.f64 phi1 R) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 R) (/.f64 phi2 phi1))) R) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(*.f64 (+.f64 (fma.f64 (neg.f64 R) (/.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) R) phi1) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* R phi1) |
(*.f64 phi1 R) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 R) (/.f64 phi2 phi1))) R) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(*.f64 (+.f64 (fma.f64 (neg.f64 R) (/.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) R) phi1) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) (/.f64 (neg.f64 phi2) phi1)) phi1 phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(fma.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1) (*.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64))))) (/.f64 (neg.f64 phi2) phi1)) phi1 phi1) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(* -1 (* R phi1)) |
(*.f64 (neg.f64 phi1) R) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))) #s(literal -1/2 binary64) (*.f64 phi2 R)) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi2 R (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)))))) phi1))) phi1)) (neg.f64 phi1)) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)) #s(literal -1/2 binary64) phi2) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) phi1)) phi1)) (neg.f64 phi1)) |
(* -1 (* R phi1)) |
(*.f64 (neg.f64 phi1) R) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))) #s(literal -1/2 binary64) (*.f64 phi2 R)) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi2 R (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)))))) phi1))) phi1)) (neg.f64 phi1)) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)) #s(literal -1/2 binary64) phi2) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) phi1)) phi1)) (neg.f64 phi1)) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 (* R phi1)) |
(*.f64 (neg.f64 phi1) R) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))) #s(literal -1/2 binary64) (*.f64 phi2 R)) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi2 R (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)))))) phi1))) phi1)) (neg.f64 phi1)) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* -1 (* R phi1)) |
(*.f64 (neg.f64 phi1) R) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))) #s(literal -1/2 binary64) (*.f64 phi2 R)) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi2 R (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)))))) phi1))) phi1)) (neg.f64 phi1)) |
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2)) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2)) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2)) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2)) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (- (cos (* 1/2 (- phi2 (* -1 phi1)))) (/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* -1 (* R phi1)) |
(*.f64 (neg.f64 phi1) R) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))) #s(literal -1/2 binary64) (*.f64 phi2 R)) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi2 R (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)))))) phi1))) phi1)) (neg.f64 phi1)) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)) #s(literal -1/2 binary64) phi2) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) phi1)) phi1)) (neg.f64 phi1)) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda2 (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda2) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda2 (*.f64 (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) phi2) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) phi2)) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) lambda2) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1)))) lambda2 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) phi2)) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) lambda1) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) lambda2 (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) lambda2 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) phi2)) |
(* lambda1 (cos (* 1/2 phi2))) |
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda2 (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda2) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda2 (*.f64 (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda2 (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda2 (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) |
(/.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(/ (- (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2) |
(/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)) lambda2) |
(/ (- (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2) |
(/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)) lambda2) |
(/ (- (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2) |
(/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)) lambda2) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)) |
(+ (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)) |
(+ (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda2 (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda2) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda2 (*.f64 (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R)) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 R (pow.f64 lambda2 #s(literal 3 binary64))) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda2) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (+.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda1 (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda2 lambda2)))))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (cos (* 1/2 phi2))) |
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) |
(* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2)))))))) |
(*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (/.f64 phi2 lambda2) (/.f64 phi2 lambda2)) (/.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* (pow lambda2 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2))))))))) |
(*.f64 (+.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda1 (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (/.f64 (*.f64 phi2 phi2) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 lambda2 lambda2)))))) lambda2) |
(* -1 (* lambda2 (cos (* 1/2 phi2)))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) |
(*.f64 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) lambda2) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) |
(*.f64 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) lambda2) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) |
(*.f64 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) lambda2) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R)) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 R (pow.f64 lambda2 #s(literal 3 binary64))) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda2) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (+.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda1 (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda2 lambda2)))))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R)) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 R (pow.f64 lambda2 #s(literal 3 binary64))) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda2) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R)) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 R (pow.f64 lambda2 #s(literal 3 binary64))) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda2) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R)) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 R (pow.f64 lambda2 #s(literal 3 binary64))) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) lambda2) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (+.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda1 (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda2 lambda2)))))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) lambda2)) lambda2))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda2)) lambda2))) |
(* -1 (* lambda2 (cos (* 1/2 phi2)))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda2 (cos (* 1/2 phi2))))) (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1)) lambda2))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda2)) (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) lambda2)) lambda2))) |
(* -1 (* lambda2 (cos (* 1/2 phi2)))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) lambda2)) lambda2))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda2)) lambda2))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) lambda2)) lambda2))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) lambda2)) lambda2))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) |
(fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) |
(* -1 (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(*.f64 (neg.f64 lambda2) (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (neg.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
(* -1 (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(*.f64 (neg.f64 lambda2) (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (neg.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
(* -1 (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(*.f64 (neg.f64 lambda2) (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (neg.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 R) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (-.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) lambda2)) lambda2))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda2)) lambda2))) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2) |
(*.f64 lambda1 (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* -1 (* R lambda2)) |
(*.f64 (neg.f64 lambda2) R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R lambda2) |
(*.f64 lambda2 R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 48 | 469 |
| 0 | 72 | 381 |
| 1 | 224 | 381 |
| 2 | 1485 | 381 |
| 0 | 8488 | 341 |
| 1× | iter limit |
| 1× | node limit |
| 1× | iter limit |
| Inputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2) |
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) |
(neg.f64 phi1) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
(*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(*.f64 R lambda1) |
#s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(neg.f64 (*.f64 R lambda2)) |
(*.f64 R lambda2) |
(-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) |
(*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)) |
| Outputs |
|---|
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
Compiled 38 371 to 2 504 computations (93.5% saved)
46 alts after pruning (44 fresh and 2 done)
| Pruned | Kept | Total | |
|---|---|---|---|
| New | 1 149 | 22 | 1 171 |
| Fresh | 7 | 22 | 29 |
| Picked | 4 | 1 | 5 |
| Done | 0 | 1 | 1 |
| Total | 1 160 | 46 | 1 206 |
| Status | Accuracy | Program |
|---|---|---|
| 21.7% | (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) | |
| 15.7% | (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 #s(approx (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))) (*.f64 phi1 phi1))))) | |
| 26.1% | (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))) | |
| 19.8% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) phi2))) | |
| 22.9% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (exp.f64 (log.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)))) phi1))) | |
| ▶ | 66.1% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) |
| 53.7% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)) phi1))) | |
| ▶ | 64.4% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) |
| 51.5% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1)) phi2))) | |
| 20.0% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (+.f64 #s(literal 0 binary64) phi1)))) | |
| 34.6% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) | |
| 54.9% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1)))) | |
| 13.3% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)))))) | |
| 20.2% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) | |
| 21.3% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) | |
| 20.3% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) | |
| 21.0% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) | |
| 21.1% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) | |
| 34.2% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) (/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)) lambda2)) lambda2))) | |
| ✓ | 32.6% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
| 36.4% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) lambda2) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))))) | |
| ▶ | 20.3% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) |
| 53.9% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) phi1)))) | |
| 10.1% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2))))))) | |
| 19.8% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)))) | |
| 8.6% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)))) | |
| 52.0% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) phi2)))) | |
| 21.7% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)))) | |
| 57.2% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2)) | |
| 53.5% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) phi2)) | |
| 7.4% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) R) lambda1)) | |
| 20.5% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) | |
| 12.1% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) | |
| 15.0% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 phi2 phi2) #s(literal 1/384 binary64)) (*.f64 phi2 phi2) #s(literal -1/8 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) | |
| 14.6% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) | |
| ▶ | 3.1% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) |
| ▶ | 20.1% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
| 10.9% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (-.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) | |
| 14.8% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) | |
| 9.4% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) | |
| 7.0% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) | |
| 9.5% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) | |
| 54.4% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi1) (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R))) | |
| 15.2% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)))) | |
| ✓ | 32.7% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
| 11.0% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(approx (* (neg (* R lambda2)) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 (*.f64 lambda2 phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (*.f64 lambda2 R) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) phi1 (*.f64 (*.f64 (neg.f64 lambda2) R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) |
Compiled 1 403 to 1 287 computations (8.3% saved)
| 1× | egg-herbie |
Found 20 expressions of interest:
| New | Metric | Score | Program |
|---|---|---|---|
| cost-diff | 0 | #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) | |
| cost-diff | 0 | #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) | |
| cost-diff | 0 | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) | |
| cost-diff | 320 | (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) | |
| cost-diff | 0 | (*.f64 lambda1 R) | |
| cost-diff | 0 | (neg.f64 (*.f64 lambda1 R)) | |
| cost-diff | 0 | (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) | |
| cost-diff | 0 | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) | |
| cost-diff | 0 | #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) | |
| cost-diff | 0 | (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) | |
| cost-diff | 0 | #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) | |
| cost-diff | 0 | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) | |
| cost-diff | 0 | #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) | |
| cost-diff | 0 | (*.f64 R lambda1) | |
| cost-diff | 0 | (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) | |
| cost-diff | 0 | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) | |
| cost-diff | 0 | #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) | |
| cost-diff | 0 | (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) | |
| cost-diff | 0 | #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) | |
| cost-diff | 0 | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 62 | 619 |
| 0 | 92 | 619 |
| 1 | 150 | 619 |
| 2 | 273 | 611 |
| 3 | 618 | 611 |
| 4 | 1479 | 611 |
| 5 | 4120 | 611 |
| 6 | 7425 | 611 |
| 0 | 8290 | 483 |
| 1× | iter limit |
| 1× | node limit |
| 1× | iter limit |
| Inputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) |
R |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) |
(hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) |
#s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
phi1 |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) |
(*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) |
(*.f64 R lambda1) |
R |
lambda1 |
#s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) |
#s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) |
#s(literal 1 binary64) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) |
R |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) |
(hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) |
#s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
phi2 |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(neg.f64 (*.f64 lambda1 R)) |
(*.f64 lambda1 R) |
lambda1 |
R |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)) |
(+.f64 phi2 phi1) |
phi2 |
phi1 |
#s(literal 1/2 binary64) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) |
R |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) |
#s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(*.f64 #s(literal 1/2 binary64) lambda1) |
#s(literal 1/2 binary64) |
lambda1 |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(*.f64 phi1 #s(literal 1/2 binary64)) |
phi1 |
phi2 |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(neg.f64 lambda1) |
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
| Outputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) |
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) R) |
R |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) |
(hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) |
#s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
phi1 |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 lambda1 R) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) |
(*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) |
(*.f64 (*.f64 lambda1 R) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) |
(*.f64 R lambda1) |
(*.f64 lambda1 R) |
R |
lambda1 |
#s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) |
#s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) |
#s(literal 1 binary64) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) |
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) R) |
R |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) |
(hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) |
#s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
phi2 |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (neg.f64 R) lambda1))) |
(*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (neg.f64 R) lambda1)) |
(neg.f64 (*.f64 lambda1 R)) |
(*.f64 (neg.f64 R) lambda1) |
(*.f64 lambda1 R) |
lambda1 |
R |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)) |
(+.f64 phi2 phi1) |
phi2 |
phi1 |
#s(literal 1/2 binary64) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) |
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda1)))) R) |
R |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda1)))) |
#s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) |
#s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda1))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda1)) |
(*.f64 #s(literal 1/2 binary64) lambda1) |
#s(literal 1/2 binary64) |
lambda1 |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2) |
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) |
(*.f64 phi1 #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) phi1) |
phi1 |
phi2 |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)) |
(neg.f64 lambda1) |
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) |
Found 20 expressions of interest:
| New | Metric | Score | Program |
|---|---|---|---|
| accuracy | 0.12109375 | (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) | |
| accuracy | 0.12890625 | (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) | |
| accuracy | 30.276134929787258 | #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) | |
| accuracy | 51.907553972950964 | #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) | |
| accuracy | 0 | (neg.f64 (*.f64 lambda1 R)) | |
| accuracy | 0.1953125 | (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) | |
| accuracy | 13.762816874150609 | (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) | |
| accuracy | 51.043236142460586 | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) | |
| accuracy | 0 | (-.f64 lambda1 lambda2) | |
| accuracy | 0.0546875 | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) | |
| accuracy | 24.459461179182433 | #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) | |
| accuracy | 28.882202326232093 | #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) | |
| accuracy | 0.1953125 | (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) | |
| accuracy | 28.737003649095872 | #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) | |
| accuracy | 28.85783262846037 | #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) | |
| accuracy | 56.21602735809481 | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) | |
| accuracy | 0 | (-.f64 lambda1 lambda2) | |
| accuracy | 0.0546875 | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) | |
| accuracy | 23.797569670969438 | #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) | |
| accuracy | 28.487777832139972 | #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) |
| 152.0ms | 189× | 1 | valid |
| 19.0ms | 67× | 0 | valid |
Compiled 700 to 81 computations (88.4% saved)
ival-cos: 42.0ms (34.2% of total)ival-mult: 33.0ms (26.9% of total)ival-hypot: 16.0ms (13% of total)adjust: 11.0ms (9% of total)ival-sin: 7.0ms (5.7% of total)ival-add: 6.0ms (4.9% of total)ival-div: 3.0ms (2.4% of total)ival-sub: 3.0ms (2.4% of total)ival-neg: 2.0ms (1.6% of total)ival-assert: 0.0ms (0% of total)ival-true: 0.0ms (0% of total)exact: 0.0ms (0% of total)| Inputs |
|---|
#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ()) |
#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ()) |
#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ()) |
#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ()) |
#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ()) |
#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ()) |
#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ()) |
#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ()) |
#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ()) |
#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ()) |
#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ()) |
#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ()) |
#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ()) |
#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ()) |
#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ()) |
#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ()) |
#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ()) |
#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ()) |
#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ()) |
#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ()) |
#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ()) |
#s(alt #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) (patch #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) #<representation binary64>) () ()) |
#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ()) |
#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ()) |
#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ()) |
| Outputs |
|---|
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (taylor 0 lambda1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi1)))) (taylor 0 lambda1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (taylor 0 lambda1) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi2)))) (taylor 0 lambda1) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda1) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda1) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda1) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor 0 lambda1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor 0 lambda1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor 0 lambda1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor 0 lambda1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor 0 lambda1) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor 0 lambda1) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor 0 lambda1) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor 0 lambda1) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 lambda1) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 lambda1) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 lambda1) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 lambda1) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) (taylor 0 lambda1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) (taylor 0 lambda1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) (taylor 0 lambda1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) (taylor 0 lambda1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 lambda2) (taylor 0 lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 phi1))) (taylor inf lambda1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor inf lambda1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1)))))))) (taylor inf lambda1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1))))))))) (taylor inf lambda1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 phi1))) (taylor inf lambda1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 phi2))) (taylor inf lambda1) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor inf lambda1) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2)))))))) (taylor inf lambda1) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* (pow lambda1 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2))))))))) (taylor inf lambda1) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 phi2))) (taylor inf lambda1) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor inf lambda1) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor inf lambda1) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor inf lambda1) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor inf lambda1) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf lambda1) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf lambda1) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf lambda1) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf lambda1) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) (taylor inf lambda1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) (taylor inf lambda1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) (taylor inf lambda1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) (taylor inf lambda1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt lambda1 (taylor inf lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor inf lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor inf lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor inf lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor inf lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor -inf lambda1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda1 (cos (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda1)) (* lambda2 (cos (* 1/2 phi1)))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 phi1))) (taylor -inf lambda1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor -inf lambda1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor -inf lambda1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor -inf lambda1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf lambda1) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi2)))) (taylor -inf lambda1) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda1 (cos (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda1)) (* lambda2 (cos (* 1/2 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 phi2))) (taylor -inf lambda1) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor -inf lambda1) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor -inf lambda1) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor -inf lambda1) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor -inf lambda1) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor -inf lambda1) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor -inf lambda1) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor -inf lambda1) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf lambda1) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf lambda1) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf lambda1) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf lambda1) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (taylor -inf lambda1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (taylor -inf lambda1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (taylor -inf lambda1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) (taylor -inf lambda1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor -inf lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor -inf lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor -inf lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor -inf lambda1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda1 (cos (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1))))))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))))))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi1)) (taylor 0 phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (- lambda1 lambda2) (taylor 0 phi2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* 1/2 (/ (* (pow phi2 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2) (taylor 0 phi2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2) (taylor 0 phi2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2) (taylor 0 phi2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (- lambda1 lambda2) (taylor 0 phi2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* -1/8 (* (pow phi2 2) (- lambda1 lambda2)))) lambda2) (taylor 0 phi2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi2 2) (- lambda1 lambda2)))))) lambda2) (taylor 0 phi2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2) (taylor 0 phi2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))))) (taylor 0 phi2) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* R (* lambda1 (cos (* 1/2 phi1))))) (* phi2 (+ (* 1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1)))))) (* 1/2 (* R (* lambda1 (sin (* 1/2 phi1)))))))) (taylor 0 phi2) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* R (* lambda1 (cos (* 1/2 phi1))))) (* phi2 (+ (* 1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* 1/8 (* R (* lambda1 (cos (* 1/2 phi1)))))))))) (taylor 0 phi2) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 phi2) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 phi2) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda1 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda1 (sin (* 1/2 phi1))))))) (taylor 0 phi2) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda1 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda1 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda1 (cos (* 1/2 phi1))))))))) (taylor 0 phi2) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt 1 (taylor 0 phi2) (#s(alt #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) (patch #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) #<representation binary64>) () ())) ()) |
#s(alt (+ 1 (* -1/8 (pow phi2 2))) (taylor 0 phi2) (#s(alt #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) (patch #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) #<representation binary64>) () ())) ()) |
#s(alt (+ 1 (* (pow phi2 2) (- (* 1/384 (pow phi2 2)) 1/8))) (taylor 0 phi2) (#s(alt #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) (patch #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) #<representation binary64>) () ())) ()) |
#s(alt (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/384 (* -1/46080 (pow phi2 2)))) 1/8))) (taylor 0 phi2) (#s(alt #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) (patch #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor 0 phi2) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor 0 phi2) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor 0 phi2) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor 0 phi2) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt phi2 (taylor inf phi2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor inf phi2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf phi2) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf phi2) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf phi2) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf phi2) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1))))) (taylor inf phi2) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) phi2)) (* 1/2 (* lambda1 (sin (* 1/2 phi1)))))) (taylor inf phi2) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) phi2)) (* 1/2 (* lambda1 (sin (* 1/2 phi1)))))) (taylor inf phi2) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) phi2)) (* 1/2 (* lambda1 (sin (* 1/2 phi1)))))) (taylor inf phi2) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor inf phi2) (#s(alt #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) (patch #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor inf phi2) (#s(alt #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) (patch #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor inf phi2) (#s(alt #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) (patch #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor inf phi2) (#s(alt #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) (patch #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor inf phi2) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor inf phi2) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor inf phi2) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor inf phi2) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor -inf phi2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor -inf phi2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) (taylor -inf phi2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))) (taylor -inf phi2) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))) (taylor -inf phi2) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))) (taylor -inf phi2) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))) (taylor -inf phi2) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1))))) (taylor -inf phi2) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ (* -1/2 (* lambda1 (sin (* 1/2 phi1)))) (/ (* lambda1 (cos (* 1/2 phi1))) phi2)))) (taylor -inf phi2) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ (* -1/2 (* lambda1 (sin (* 1/2 phi1)))) (/ (* lambda1 (cos (* 1/2 phi1))) phi2)))) (taylor -inf phi2) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ (* -1/2 (* lambda1 (sin (* 1/2 phi1)))) (/ (* lambda1 (cos (* 1/2 phi1))) phi2)))) (taylor -inf phi2) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor -inf phi2) (#s(alt #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) (patch #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor -inf phi2) (#s(alt #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) (patch #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor -inf phi2) (#s(alt #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) (patch #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor -inf phi2) (#s(alt #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) (patch #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor -inf phi2) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor -inf phi2) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor -inf phi2) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor -inf phi2) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (- lambda1 lambda2) (taylor 0 phi1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* 1/2 (/ (* (pow phi1 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2) (taylor 0 phi1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2) (taylor 0 phi1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2) (taylor 0 phi1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (- lambda1 lambda2) (taylor 0 phi1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* -1/8 (* (pow phi1 2) (- lambda1 lambda2)))) lambda2) (taylor 0 phi1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi1 2) (- lambda1 lambda2)))))) lambda2) (taylor 0 phi1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2) (taylor 0 phi1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda1 (cos (* 1/2 phi2))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2))))))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor 0 phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (taylor 0 phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 phi2))))) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))))) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* R (* lambda1 (cos (* 1/2 phi2))))) (* phi1 (+ (* 1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2)))))) (* 1/2 (* R (* lambda1 (sin (* 1/2 phi2)))))))) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* R (* lambda1 (cos (* 1/2 phi2))))) (* phi1 (+ (* 1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* 1/8 (* R (* lambda1 (cos (* 1/2 phi2)))))))))) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 lambda1) (taylor 0 phi1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 lambda1) (* 1/4 (* lambda1 (* phi1 phi2)))) (taylor 0 phi1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 lambda1) (* phi1 (+ (* 1/8 (* lambda1 phi1)) (* 1/4 (* lambda1 phi2))))) (taylor 0 phi1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 lambda1) (* phi1 (+ (* 1/4 (* lambda1 phi2)) (* phi1 (+ (* -1/96 (* lambda1 (* phi1 phi2))) (* 1/8 lambda1)))))) (taylor 0 phi1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 phi1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* 1/2 (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda1 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda1 (sin (* 1/2 phi2))))))) (taylor 0 phi1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda1 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda1 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda1 (cos (* 1/2 phi2))))))))) (taylor 0 phi1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 phi2)) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 lambda1) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 lambda1) (* 1/8 (* lambda1 (pow phi1 2)))) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 lambda1) (* (pow phi1 2) (+ (* -1/384 (* lambda1 (pow phi1 2))) (* 1/8 lambda1)))) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 lambda1) (* (pow phi1 2) (+ (* 1/8 lambda1) (* (pow phi1 2) (+ (* -1/384 lambda1) (* 1/46080 (* lambda1 (pow phi1 2)))))))) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* 1/2 (* phi1 phi2)) (taylor 0 phi1) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ (* -1/48 (* (pow phi1 2) phi2)) (* 1/2 phi2))) (taylor 0 phi1) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ (* 1/2 phi2) (* (pow phi1 2) (+ (* -1/48 phi2) (* 1/3840 (* (pow phi1 2) phi2)))))) (taylor 0 phi1) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ (* 1/2 phi2) (* (pow phi1 2) (+ (* -1/48 phi2) (* (pow phi1 2) (+ (* -1/645120 (* (pow phi1 2) phi2)) (* 1/3840 phi2))))))) (taylor 0 phi1) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt phi1 (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt phi1 (taylor inf phi1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor inf phi1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi1) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt phi1 (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* R phi1) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (taylor inf phi1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (taylor inf phi1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (taylor inf phi1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (taylor inf phi1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt phi1 (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor inf phi1) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor inf phi1) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor inf phi1) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor inf phi1) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor -inf phi1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor -inf phi1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) (taylor -inf phi1) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) (patch #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (taylor -inf phi1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (taylor -inf phi1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (taylor -inf phi1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (taylor -inf phi1) (#s(alt (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (patch (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (patch #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (patch (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor -inf phi1) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor -inf phi1) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor -inf phi1) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* phi2 (sin (* 1/2 phi1))) (taylor -inf phi1) (#s(alt (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (patch (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (taylor 0 lambda2) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 phi1))) (taylor 0 lambda2) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda2) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda2) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda2) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (taylor 0 lambda2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda1 (cos (* 1/2 phi2))) (taylor 0 lambda2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt lambda1 (taylor 0 lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (cos (* 1/2 phi1))) (taylor inf lambda2) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))) (taylor inf lambda2) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1)))))))) (taylor inf lambda2) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1))))))))) (taylor inf lambda2) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi1)))) (taylor inf lambda2) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) (taylor inf lambda2) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) (taylor inf lambda2) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) (taylor inf lambda2) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (cos (* 1/2 phi2))) (taylor inf lambda2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))) (taylor inf lambda2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2)))))))) (taylor inf lambda2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* (pow lambda2 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2))))))))) (taylor inf lambda2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) (taylor inf lambda2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) (taylor inf lambda2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) (taylor inf lambda2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 lambda2) (taylor inf lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi1)))) (taylor -inf lambda2) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda2 (cos (* 1/2 phi1))))) (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda2)) (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) (patch (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi1)))) (taylor -inf lambda2) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) (patch #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi2)))) (taylor -inf lambda2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda2 (cos (* 1/2 phi2))))) (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda2)) (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) (patch (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi2)))) (taylor -inf lambda2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 lambda2) (taylor -inf lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor 0 R) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor 0 R) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor 0 R) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor 0 R) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor 0 R) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor 0 R) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor 0 R) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor 0 R) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 R) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 R) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 R) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor 0 R) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf R) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf R) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf R) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf R) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor inf R) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor inf R) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor inf R) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor inf R) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf R) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf R) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf R) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor inf R) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) (patch (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf R) (#s(alt (*.f64 R lambda1) (patch (*.f64 R lambda1) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf R) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf R) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf R) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf R) (#s(alt (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (patch (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor -inf R) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor -inf R) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor -inf R) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* -1 (* R lambda1)) (taylor -inf R) (#s(alt (neg.f64 (*.f64 lambda1 R)) (patch (neg.f64 (*.f64 lambda1 R)) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf R) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf R) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf R) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R lambda1) (taylor -inf R) (#s(alt (*.f64 lambda1 R) (patch (*.f64 lambda1 R) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #<representation binary64>) () ())) ()) |
15 calls:
| Time | Variable | Point | Expression | |
|---|---|---|---|---|
| 30.0ms | R | @ | inf | ((* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda1) (cos (* (+ phi2 phi1) 1/2))) (* R lambda1) (cos (* (+ phi2 phi1) 1/2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (neg (* lambda1 R)) (cos (* (+ phi2 phi1) 1/2))) (neg (* lambda1 R)) (* lambda1 R) (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (- lambda1 lambda2) (cos (* phi2 1/2)) (cos (* (+ phi2 phi1) 1/2)) (* (neg lambda1) (cos (* phi1 1/2))) (* (sin (* phi1 1/2)) phi2)) |
| 12.0ms | lambda1 | @ | 0 | ((* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda1) (cos (* (+ phi2 phi1) 1/2))) (* R lambda1) (cos (* (+ phi2 phi1) 1/2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (neg (* lambda1 R)) (cos (* (+ phi2 phi1) 1/2))) (neg (* lambda1 R)) (* lambda1 R) (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (- lambda1 lambda2) (cos (* phi2 1/2)) (cos (* (+ phi2 phi1) 1/2)) (* (neg lambda1) (cos (* phi1 1/2))) (* (sin (* phi1 1/2)) phi2)) |
| 9.0ms | phi2 | @ | inf | ((* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda1) (cos (* (+ phi2 phi1) 1/2))) (* R lambda1) (cos (* (+ phi2 phi1) 1/2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (neg (* lambda1 R)) (cos (* (+ phi2 phi1) 1/2))) (neg (* lambda1 R)) (* lambda1 R) (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (- lambda1 lambda2) (cos (* phi2 1/2)) (cos (* (+ phi2 phi1) 1/2)) (* (neg lambda1) (cos (* phi1 1/2))) (* (sin (* phi1 1/2)) phi2)) |
| 7.0ms | phi1 | @ | 0 | ((* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda1) (cos (* (+ phi2 phi1) 1/2))) (* R lambda1) (cos (* (+ phi2 phi1) 1/2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (neg (* lambda1 R)) (cos (* (+ phi2 phi1) 1/2))) (neg (* lambda1 R)) (* lambda1 R) (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (- lambda1 lambda2) (cos (* phi2 1/2)) (cos (* (+ phi2 phi1) 1/2)) (* (neg lambda1) (cos (* phi1 1/2))) (* (sin (* phi1 1/2)) phi2)) |
| 4.0ms | lambda1 | @ | inf | ((* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda1) (cos (* (+ phi2 phi1) 1/2))) (* R lambda1) (cos (* (+ phi2 phi1) 1/2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (neg (* lambda1 R)) (cos (* (+ phi2 phi1) 1/2))) (neg (* lambda1 R)) (* lambda1 R) (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (- lambda1 lambda2) (cos (* phi2 1/2)) (cos (* (+ phi2 phi1) 1/2)) (* (neg lambda1) (cos (* phi1 1/2))) (* (sin (* phi1 1/2)) phi2)) |
| 1× | egg-herbie |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 1360 | 31798 |
| 1 | 4553 | 29698 |
| 0 | 8207 | 27401 |
| 1× | iter limit |
| 1× | node limit |
| Inputs |
|---|
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3)))))))))) |
(* -1 (* lambda2 (cos (* 1/2 phi1)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3)))))))))) |
(* -1 (* lambda2 (cos (* 1/2 phi2)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R lambda1)) |
(* -1 (* R lambda1)) |
(* -1 (* R lambda1)) |
(* -1 (* R lambda1)) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) |
(* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) |
(* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) |
(* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 lambda2) |
(- lambda1 lambda2) |
(- lambda1 lambda2) |
(- lambda1 lambda2) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(* lambda1 (cos (* 1/2 phi1))) |
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1)))))))) |
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1))))))))) |
(* lambda1 (cos (* 1/2 phi1))) |
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(* lambda1 (cos (* 1/2 phi2))) |
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2)))))))) |
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* (pow lambda1 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2))))))))) |
(* lambda1 (cos (* 1/2 phi2))) |
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R lambda1)) |
(* -1 (* R lambda1)) |
(* -1 (* R lambda1)) |
(* -1 (* R lambda1)) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) |
(* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) |
(* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) |
(* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
lambda1 |
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) |
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) |
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda1 (cos (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda1)) (* lambda2 (cos (* 1/2 phi1)))) lambda1))))) |
(* lambda1 (cos (* 1/2 phi1))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(* -1 (* lambda1 (cos (* 1/2 phi2)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda1 (cos (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2)))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda1)) (* lambda2 (cos (* 1/2 phi2)))) lambda1))))) |
(* lambda1 (cos (* 1/2 phi2))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R lambda1)) |
(* -1 (* R lambda1)) |
(* -1 (* R lambda1)) |
(* -1 (* R lambda1)) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
lambda1 |
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) |
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) |
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(* R (* lambda1 (cos (* 1/2 phi1)))) |
(+ (* -1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda1 (cos (* 1/2 phi1))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1))))))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))))))))) |
(cos (* 1/2 phi1)) |
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(- lambda1 lambda2) |
(- (+ lambda1 (* 1/2 (/ (* (pow phi2 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2) |
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2) |
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2) |
(- lambda1 lambda2) |
(- (+ lambda1 (* -1/8 (* (pow phi2 2) (- lambda1 lambda2)))) lambda2) |
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi2 2) (- lambda1 lambda2)))))) lambda2) |
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 phi1))))) |
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))))) |
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi1))))) (* phi2 (+ (* 1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1)))))) (* 1/2 (* R (* lambda1 (sin (* 1/2 phi1)))))))) |
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi1))))) (* phi2 (+ (* 1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* 1/8 (* R (* lambda1 (cos (* 1/2 phi1)))))))))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda1 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda1 (sin (* 1/2 phi1))))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda1 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda1 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda1 (cos (* 1/2 phi1))))))))) |
1 |
(+ 1 (* -1/8 (pow phi2 2))) |
(+ 1 (* (pow phi2 2) (- (* 1/384 (pow phi2 2)) 1/8))) |
(+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/384 (* -1/46080 (pow phi2 2)))) 1/8))) |
(cos (* 1/2 phi1)) |
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) |
(* phi2 (sin (* 1/2 phi1))) |
(* phi2 (sin (* 1/2 phi1))) |
(* phi2 (sin (* 1/2 phi1))) |
(* phi2 (sin (* 1/2 phi1))) |
(* R phi2) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(* R phi2) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(* R phi2) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
phi2 |
(* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(* R phi2) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1))))) |
(* phi2 (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) phi2)) (* 1/2 (* lambda1 (sin (* 1/2 phi1)))))) |
(* phi2 (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) phi2)) (* 1/2 (* lambda1 (sin (* 1/2 phi1)))))) |
(* phi2 (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) phi2)) (* 1/2 (* lambda1 (sin (* 1/2 phi1)))))) |
(* R phi2) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(cos (* 1/2 phi2)) |
(cos (* 1/2 phi2)) |
(cos (* 1/2 phi2)) |
(cos (* 1/2 phi2)) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(* phi2 (sin (* 1/2 phi1))) |
(* phi2 (sin (* 1/2 phi1))) |
(* phi2 (sin (* 1/2 phi1))) |
(* phi2 (sin (* 1/2 phi1))) |
(* -1 (* R phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(* -1 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(* -1 (* R phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(* -1 (* R phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(* -1 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(* -1 phi2) |
(* -1 (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(* -1 (* R phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))) |
(* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1))))) |
(* -1 (* phi2 (+ (* -1/2 (* lambda1 (sin (* 1/2 phi1)))) (/ (* lambda1 (cos (* 1/2 phi1))) phi2)))) |
(* -1 (* phi2 (+ (* -1/2 (* lambda1 (sin (* 1/2 phi1)))) (/ (* lambda1 (cos (* 1/2 phi1))) phi2)))) |
(* -1 (* phi2 (+ (* -1/2 (* lambda1 (sin (* 1/2 phi1)))) (/ (* lambda1 (cos (* 1/2 phi1))) phi2)))) |
(* -1 (* R phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(* -1 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(cos (* 1/2 phi2)) |
(cos (* 1/2 phi2)) |
(cos (* 1/2 phi2)) |
(cos (* 1/2 phi2)) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(* phi2 (sin (* 1/2 phi1))) |
(* phi2 (sin (* 1/2 phi1))) |
(* phi2 (sin (* 1/2 phi1))) |
(* phi2 (sin (* 1/2 phi1))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(- lambda1 lambda2) |
(- (+ lambda1 (* 1/2 (/ (* (pow phi1 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2) |
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2) |
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2) |
(- lambda1 lambda2) |
(- (+ lambda1 (* -1/8 (* (pow phi1 2) (- lambda1 lambda2)))) lambda2) |
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi1 2) (- lambda1 lambda2)))))) lambda2) |
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(* R (* lambda1 (cos (* 1/2 phi2)))) |
(+ (* -1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda1 (cos (* 1/2 phi2))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2))))))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))))))))) |
(cos (* 1/2 phi2)) |
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 phi2))))) |
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))))) |
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi2))))) (* phi1 (+ (* 1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2)))))) (* 1/2 (* R (* lambda1 (sin (* 1/2 phi2)))))))) |
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi2))))) (* phi1 (+ (* 1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* 1/8 (* R (* lambda1 (cos (* 1/2 phi2)))))))))) |
(* -1 lambda1) |
(+ (* -1 lambda1) (* 1/4 (* lambda1 (* phi1 phi2)))) |
(+ (* -1 lambda1) (* phi1 (+ (* 1/8 (* lambda1 phi1)) (* 1/4 (* lambda1 phi2))))) |
(+ (* -1 lambda1) (* phi1 (+ (* 1/4 (* lambda1 phi2)) (* phi1 (+ (* -1/96 (* lambda1 (* phi1 phi2))) (* 1/8 lambda1)))))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(* -1 (* lambda1 (cos (* 1/2 phi2)))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* 1/2 (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda1 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda1 (sin (* 1/2 phi2))))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda1 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda1 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda1 (cos (* 1/2 phi2))))))))) |
(cos (* 1/2 phi2)) |
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) |
(* -1 lambda1) |
(+ (* -1 lambda1) (* 1/8 (* lambda1 (pow phi1 2)))) |
(+ (* -1 lambda1) (* (pow phi1 2) (+ (* -1/384 (* lambda1 (pow phi1 2))) (* 1/8 lambda1)))) |
(+ (* -1 lambda1) (* (pow phi1 2) (+ (* 1/8 lambda1) (* (pow phi1 2) (+ (* -1/384 lambda1) (* 1/46080 (* lambda1 (pow phi1 2)))))))) |
(* 1/2 (* phi1 phi2)) |
(* phi1 (+ (* -1/48 (* (pow phi1 2) phi2)) (* 1/2 phi2))) |
(* phi1 (+ (* 1/2 phi2) (* (pow phi1 2) (+ (* -1/48 phi2) (* 1/3840 (* (pow phi1 2) phi2)))))) |
(* phi1 (+ (* 1/2 phi2) (* (pow phi1 2) (+ (* -1/48 phi2) (* (pow phi1 2) (+ (* -1/645120 (* (pow phi1 2) phi2)) (* 1/3840 phi2))))))) |
(* R phi1) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
phi1 |
(* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(* R phi1) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(* R phi1) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(* R phi1) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(* R phi1) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos (* 1/2 (+ phi1 phi2))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* phi2 (sin (* 1/2 phi1))) |
(* phi2 (sin (* 1/2 phi1))) |
(* phi2 (sin (* 1/2 phi1))) |
(* phi2 (sin (* 1/2 phi1))) |
(* -1 (* R phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(* -1 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(* -1 phi1) |
(* -1 (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(* -1 (* R phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(* -1 (* R phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(* -1 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(* -1 (* R phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(* -1 (* R phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(* -1 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(* phi2 (sin (* 1/2 phi1))) |
(* phi2 (sin (* 1/2 phi1))) |
(* phi2 (sin (* 1/2 phi1))) |
(* phi2 (sin (* 1/2 phi1))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3)))))))))) |
(* lambda1 (cos (* 1/2 phi1))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3)))))))))) |
(* lambda1 (cos (* 1/2 phi2))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
lambda1 |
(+ lambda1 (* -1 lambda2)) |
(+ lambda1 (* -1 lambda2)) |
(+ lambda1 (* -1 lambda2)) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(* lambda2 (cos (* 1/2 phi1))) |
(* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))) |
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1)))))))) |
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1))))))))) |
(* -1 (* lambda2 (cos (* 1/2 phi1)))) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(* lambda2 (cos (* 1/2 phi2))) |
(* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))) |
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2)))))))) |
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* (pow lambda2 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2))))))))) |
(* -1 (* lambda2 (cos (* 1/2 phi2)))) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(* -1 lambda2) |
(* lambda2 (- (/ lambda1 lambda2) 1)) |
(* lambda2 (- (/ lambda1 lambda2) 1)) |
(* lambda2 (- (/ lambda1 lambda2) 1)) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(* -1 (* lambda2 (cos (* 1/2 phi1)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda2 (cos (* 1/2 phi1))))) (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda2)) (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) |
(* -1 (* lambda2 (cos (* 1/2 phi1)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(* -1 (* lambda2 (cos (* 1/2 phi2)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda2 (cos (* 1/2 phi2))))) (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda2)) (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) |
(* -1 (* lambda2 (cos (* 1/2 phi2)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(* -1 lambda2) |
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) |
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) |
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R lambda1)) |
(* -1 (* R lambda1)) |
(* -1 (* R lambda1)) |
(* -1 (* R lambda1)) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R lambda1)) |
(* -1 (* R lambda1)) |
(* -1 (* R lambda1)) |
(* -1 (* R lambda1)) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(* -1 (* R lambda1)) |
(* -1 (* R lambda1)) |
(* -1 (* R lambda1)) |
(* -1 (* R lambda1)) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R lambda1) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
| Outputs |
|---|
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda1 (*.f64 (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda1) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda1 (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) phi1) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) phi1)) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi1 phi1))))) lambda1) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) phi1)) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi1 phi1))))) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi1 phi1))))))) lambda1 (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi1 phi1)))))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) phi1)) |
(* -1 (* lambda2 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda1 (*.f64 (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda1 (*.f64 (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda1) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda1 (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) phi2) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) phi2)) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2))))) lambda1) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) phi2)) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2))))) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2))))))) lambda1 (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)))))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) phi2)) |
(* -1 (* lambda2 (cos (* 1/2 phi2)))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda1 (*.f64 (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) |
(*.f64 (fma.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda1) |
(* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) |
(*.f64 (fma.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda1) |
(* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) |
(*.f64 (fma.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda1) |
(* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) |
(*.f64 (fma.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda1) |
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda1 (*.f64 (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (*.f64 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) R)) |
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda1) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda1 (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda1 (hypot.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (-.f64 phi1 phi2))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 lambda2) |
(neg.f64 lambda2) |
(- lambda1 lambda2) |
(-.f64 lambda1 lambda2) |
(- lambda1 lambda2) |
(-.f64 lambda1 lambda2) |
(- lambda1 lambda2) |
(-.f64 lambda1 lambda2) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1)))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 R (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1)))) lambda1) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda2 (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1) |
(* lambda1 (cos (* 1/2 phi1))) |
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1)))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 phi1 phi1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1))))))))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 phi1 (*.f64 lambda1 lambda1)) (/.f64 phi1 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (/.f64 (*.f64 (*.f64 phi1 phi1) lambda2) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda1) |
(* lambda1 (cos (* 1/2 phi1))) |
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) lambda1) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1)))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 R (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1)))) lambda1) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1)))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 R (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1)))) lambda1) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda2 (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1) |
(* lambda1 (cos (* 1/2 phi2))) |
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2)))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (/.f64 phi2 lambda1) (/.f64 phi2 lambda1)) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* (pow lambda1 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2))))))))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 phi2 (*.f64 lambda1 lambda1)) (/.f64 phi2 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (/.f64 (*.f64 (*.f64 phi2 phi2) lambda2) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) lambda1) |
(* lambda1 (cos (* 1/2 phi2))) |
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda1) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1)))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 R (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1)))) lambda1) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) |
(*.f64 (fma.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda1) |
(* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) |
(*.f64 (fma.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda1) |
(* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) |
(*.f64 (fma.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda1) |
(* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))) |
(*.f64 (fma.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda1) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1)))) lambda1) |
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 R (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1)))) lambda1) |
(* lambda1 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1) |
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda2 (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
lambda1 |
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1) |
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1) |
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (*.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) #s(literal -1/2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (neg.f64 lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) (neg.f64 lambda1))) (neg.f64 lambda1)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) lambda1))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda1)) lambda1))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda1 (cos (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (*.f64 phi1 phi1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)) lambda1))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda1)) (* lambda2 (cos (* 1/2 phi1)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (*.f64 phi1 phi1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) lambda1)) lambda1))) |
(* lambda1 (cos (* 1/2 phi1))) |
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(*.f64 (neg.f64 lambda1) (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(*.f64 (neg.f64 lambda1) (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) |
(*.f64 (neg.f64 lambda1) (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (*.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) #s(literal -1/2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (neg.f64 lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) (neg.f64 lambda1))) (neg.f64 lambda1)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (*.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) #s(literal -1/2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (neg.f64 lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) (neg.f64 lambda1))) (neg.f64 lambda1)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) lambda1))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda1)) lambda1))) |
(* -1 (* lambda1 (cos (* 1/2 phi2)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda1 (cos (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)) lambda1))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda1)) (* lambda2 (cos (* 1/2 phi2)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) lambda1)) lambda1))) |
(* lambda1 (cos (* 1/2 phi2))) |
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(*.f64 (neg.f64 lambda1) (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(*.f64 (neg.f64 lambda1) (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) |
(*.f64 (neg.f64 lambda1) (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (*.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) #s(literal -1/2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (neg.f64 lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) (neg.f64 lambda1))) (neg.f64 lambda1)))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (*.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) #s(literal -1/2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (neg.f64 lambda1)))) |
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) (neg.f64 lambda1))) (neg.f64 lambda1)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2)) lambda1))) |
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) |
(*.f64 (neg.f64 lambda1) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda1)) lambda1))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
lambda1 |
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) |
(*.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))) |
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) |
(*.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))) |
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) |
(*.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)))) #s(literal 1/2 binary64) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) phi2 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) R)))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) phi2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) phi2 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (+.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal -1/2 binary64))) phi2)))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)))) #s(literal 1/2 binary64) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) phi2 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) R)))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(* R (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (* -1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda1 (cos (* 1/2 phi1))))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (*.f64 lambda1 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 (*.f64 lambda1 phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) phi2 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (*.f64 (*.f64 #s(literal 1/48 binary64) R) (*.f64 (*.f64 lambda1 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) phi2)) phi2 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(cos (* 1/2 phi1)) |
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)))) #s(literal 1/2 binary64) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) phi2 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) R)))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) phi2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) phi2 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (+.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal -1/2 binary64))) phi2)))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(- lambda1 lambda2) |
(-.f64 lambda1 lambda2) |
(- (+ lambda1 (* 1/2 (/ (* (pow phi2 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2) |
(fma.f64 (/.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 phi2 phi2)) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) |
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 phi2 phi2) (/.f64 (fma.f64 #s(literal 1/48 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 lambda1 lambda2)))) (*.f64 phi2 phi2) (-.f64 lambda1 lambda2)) |
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 phi2 phi2) (/.f64 (fma.f64 #s(literal -1/1440 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 (fma.f64 #s(literal 1/48 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 #s(literal 1/48 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) (*.f64 phi2 phi2) (/.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2) (-.f64 lambda1 lambda2)) |
(- lambda1 lambda2) |
(-.f64 lambda1 lambda2) |
(- (+ lambda1 (* -1/8 (* (pow phi2 2) (- lambda1 lambda2)))) lambda2) |
(fma.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2)) (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) |
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi2 2) (- lambda1 lambda2)))))) lambda2) |
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (fma.f64 #s(literal 1/384 binary64) (*.f64 phi2 phi2) #s(literal -1/8 binary64))) (*.f64 phi2 phi2) (-.f64 lambda1 lambda2)) |
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2) |
(fma.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (fma.f64 #s(literal -1/46080 binary64) (*.f64 phi2 phi2) #s(literal 1/384 binary64))) (*.f64 phi2 phi2) (*.f64 #s(literal -1/8 binary64) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2) (-.f64 lambda1 lambda2)) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)))) #s(literal 1/2 binary64) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) phi2 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) R)))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(* -1 (* R (* lambda1 (cos (* 1/2 phi1))))) |
(*.f64 (*.f64 (neg.f64 R) lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (*.f64 lambda1 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (neg.f64 R) lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi1))))) (* phi2 (+ (* 1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1)))))) (* 1/2 (* R (* lambda1 (sin (* 1/2 phi1)))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (*.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 (*.f64 lambda1 phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) phi2 (*.f64 (*.f64 (neg.f64 R) lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi1))))) (* phi2 (+ (* 1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* 1/8 (* R (* lambda1 (cos (* 1/2 phi1)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (*.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) R) (*.f64 (*.f64 lambda1 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/8 binary64))) phi2)) phi2 (*.f64 (*.f64 (neg.f64 R) lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R) |
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)))) #s(literal 1/2 binary64) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) phi2 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) R)))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) R)) |
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) |
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) phi2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) phi2 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (+.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal -1/2 binary64))) phi2)))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) phi2 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda1 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda1 (sin (* 1/2 phi1))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 lambda1 phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/8 binary64))) phi2 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda1 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda1 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda1 (cos (* 1/2 phi1))))))))) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (*.f64 #s(literal 1/8 binary64) lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
1 |
#s(literal 1 binary64) |
(+ 1 (* -1/8 (pow phi2 2))) |
(fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)) |
(+ 1 (* (pow phi2 2) (- (* 1/384 (pow phi2 2)) 1/8))) |
(fma.f64 (fma.f64 #s(literal 1/384 binary64) (*.f64 phi2 phi2) #s(literal -1/8 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) |
(+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/384 (* -1/46080 (pow phi2 2)))) 1/8))) |
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 phi2 phi2) #s(literal 1/384 binary64)) (*.f64 phi2 phi2) #s(literal -1/8 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) |
(cos (* 1/2 phi1)) |
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) |
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* R phi2) |
(*.f64 phi2 R) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(*.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(*.f64 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) R)) phi2) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))) phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi2) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2) (*.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))) phi2) |
(* R phi2) |
(*.f64 phi2 R) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(*.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(*.f64 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) R)) phi2) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* R phi2) |
(*.f64 phi2 R) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(*.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(*.f64 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) R)) phi2) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))) phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi2) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2) (*.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))) phi2) |
phi2 |
(* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64) #s(literal 1 binary64)) phi2) |
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))) #s(literal -1/8 binary64) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64) #s(literal 1 binary64))) phi2) |
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))) #s(literal -1/8 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi2 #s(literal 6 binary64)))) #s(literal 1/16 binary64))) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64) #s(literal 1 binary64))) phi2) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* R phi2) |
(*.f64 phi2 R) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(*.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(*.f64 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) R)) phi2) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1))))) |
(*.f64 (*.f64 (*.f64 lambda1 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) |
(* phi2 (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) phi2)) (* 1/2 (* lambda1 (sin (* 1/2 phi1)))))) |
(*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi2)) phi2) |
(* phi2 (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) phi2)) (* 1/2 (* lambda1 (sin (* 1/2 phi1)))))) |
(*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi2)) phi2) |
(* phi2 (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) phi2)) (* 1/2 (* lambda1 (sin (* 1/2 phi1)))))) |
(*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi2)) phi2) |
(* R phi2) |
(*.f64 phi2 R) |
(* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
(*.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) phi2) |
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
(*.f64 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) R)) phi2) |
phi2 |
(* phi2 (+ 1 (* -1 (/ phi1 phi2)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))) phi2) |
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi2) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2) (*.f64 phi1 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi2 #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))) phi2) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* -1 (* R phi2)) |
(*.f64 (neg.f64 R) phi2) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))) #s(literal -1/2 binary64) (*.f64 phi1 R)) phi2)) (neg.f64 phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi1 R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)))))) (neg.f64 phi2))) phi2)) (neg.f64 phi2)) |
(* -1 phi2) |
(neg.f64 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)) #s(literal -1/2 binary64) phi1) phi2)) (neg.f64 phi2)) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) phi2)) phi2)) (neg.f64 phi2)) |
(* -1 (* R phi2)) |
(*.f64 (neg.f64 R) phi2) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))) #s(literal -1/2 binary64) (*.f64 phi1 R)) phi2)) (neg.f64 phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi1 R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)))))) (neg.f64 phi2))) phi2)) (neg.f64 phi2)) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* -1 (* R phi2)) |
(*.f64 (neg.f64 R) phi2) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))) #s(literal -1/2 binary64) (*.f64 phi1 R)) phi2)) (neg.f64 phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi1 R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)))))) (neg.f64 phi2))) phi2)) (neg.f64 phi2)) |
(* -1 phi2) |
(neg.f64 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)) #s(literal -1/2 binary64) phi1) phi2)) (neg.f64 phi2)) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) phi2)) phi2)) (neg.f64 phi2)) |
(* -1 phi2) |
(neg.f64 phi2) |
(* -1 (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
(*.f64 (neg.f64 phi2) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64) #s(literal 1 binary64))) |
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(*.f64 (neg.f64 phi2) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))) #s(literal -1/8 binary64) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64) #s(literal 1 binary64)))) |
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
(*.f64 (neg.f64 phi2) (+.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))) #s(literal -1/8 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi2 #s(literal 6 binary64)))) #s(literal 1/16 binary64))) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64) #s(literal 1 binary64)))) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi2)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* -1 (* R phi2)) |
(*.f64 (neg.f64 R) phi2) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))) #s(literal -1/2 binary64) (*.f64 phi1 R)) phi2)) (neg.f64 phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi1 R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)))))) (neg.f64 phi2))) phi2)) (neg.f64 phi2)) |
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1))))) |
(*.f64 (*.f64 (*.f64 lambda1 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) |
(* -1 (* phi2 (+ (* -1/2 (* lambda1 (sin (* 1/2 phi1)))) (/ (* lambda1 (cos (* 1/2 phi1))) phi2)))) |
(*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) #s(literal -1/2 binary64) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2))) (neg.f64 phi2)) |
(* -1 (* phi2 (+ (* -1/2 (* lambda1 (sin (* 1/2 phi1)))) (/ (* lambda1 (cos (* 1/2 phi1))) phi2)))) |
(*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) #s(literal -1/2 binary64) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2))) (neg.f64 phi2)) |
(* -1 (* phi2 (+ (* -1/2 (* lambda1 (sin (* 1/2 phi1)))) (/ (* lambda1 (cos (* 1/2 phi1))) phi2)))) |
(*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) #s(literal -1/2 binary64) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2))) (neg.f64 phi2)) |
(* -1 (* R phi2)) |
(*.f64 (neg.f64 R) phi2) |
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (*.f64 phi1 R) phi2))) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))) #s(literal -1/2 binary64) (*.f64 phi1 R)) phi2)) (neg.f64 phi2)) |
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi1 R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)))))) (neg.f64 phi2))) phi2)) (neg.f64 phi2)) |
(* -1 phi2) |
(neg.f64 phi2) |
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) |
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)) #s(literal -1/2 binary64) phi1) phi2)) (neg.f64 phi2)) |
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) phi2)) phi2)) (neg.f64 phi2)) |
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi1 (* -1 phi2)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) phi1 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) R)))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) phi1 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2))))) phi1 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (+.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal -1/2 binary64))) phi1)))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2)) |
(- lambda1 lambda2) |
(-.f64 lambda1 lambda2) |
(- (+ lambda1 (* 1/2 (/ (* (pow phi1 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2) |
(fma.f64 (*.f64 (*.f64 phi1 phi1) (/.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) |
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 phi1 phi1) (/.f64 (fma.f64 #s(literal 1/48 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 lambda1 lambda2)))) (*.f64 phi1 phi1) (-.f64 lambda1 lambda2)) |
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 phi1 phi1) (/.f64 (fma.f64 #s(literal -1/1440 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 (fma.f64 #s(literal 1/48 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 #s(literal 1/48 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) (*.f64 phi1 phi1) (/.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1) (-.f64 lambda1 lambda2)) |
(- lambda1 lambda2) |
(-.f64 lambda1 lambda2) |
(- (+ lambda1 (* -1/8 (* (pow phi1 2) (- lambda1 lambda2)))) lambda2) |
(fma.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 phi1 phi1)) (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) |
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi1 2) (- lambda1 lambda2)))))) lambda2) |
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (fma.f64 #s(literal 1/384 binary64) (*.f64 phi1 phi1) #s(literal -1/8 binary64))) (*.f64 phi1 phi1) (-.f64 lambda1 lambda2)) |
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2) |
(fma.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (fma.f64 #s(literal -1/46080 binary64) (*.f64 phi1 phi1) #s(literal 1/384 binary64))) (*.f64 phi1 phi1) (*.f64 #s(literal -1/8 binary64) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1) (-.f64 lambda1 lambda2)) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) phi1 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) R)))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(* R (* lambda1 (cos (* 1/2 phi2)))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (* -1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda1 (cos (* 1/2 phi2))))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (*.f64 lambda1 phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 (*.f64 lambda1 phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) phi1 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (*.f64 (*.f64 #s(literal 1/48 binary64) R) (*.f64 (*.f64 lambda1 phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) phi1)) phi1 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) phi1 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) R)))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) phi1 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2))))) phi1 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (+.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal -1/2 binary64))) phi1)))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2)) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) phi1 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) R)))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(* -1 (* R (* lambda1 (cos (* 1/2 phi2))))) |
(*.f64 (*.f64 (neg.f64 R) lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (*.f64 lambda1 phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (neg.f64 R) lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi2))))) (* phi1 (+ (* 1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2)))))) (* 1/2 (* R (* lambda1 (sin (* 1/2 phi2)))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (*.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 (*.f64 lambda1 phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) phi1 (*.f64 (*.f64 (neg.f64 R) lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(+ (* -1 (* R (* lambda1 (cos (* 1/2 phi2))))) (* phi1 (+ (* 1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* 1/8 (* R (* lambda1 (cos (* 1/2 phi2)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (*.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) R) (*.f64 (*.f64 lambda1 phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/8 binary64))) phi1)) phi1 (*.f64 (*.f64 (neg.f64 R) lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(* -1 lambda1) |
(neg.f64 lambda1) |
(+ (* -1 lambda1) (* 1/4 (* lambda1 (* phi1 phi2)))) |
(fma.f64 (*.f64 (*.f64 phi2 phi1) lambda1) #s(literal 1/4 binary64) (neg.f64 lambda1)) |
(+ (* -1 lambda1) (* phi1 (+ (* 1/8 (* lambda1 phi1)) (* 1/4 (* lambda1 phi2))))) |
(fma.f64 (fma.f64 (*.f64 lambda1 phi2) #s(literal 1/4 binary64) (*.f64 (*.f64 lambda1 phi1) #s(literal 1/8 binary64))) phi1 (neg.f64 lambda1)) |
(+ (* -1 lambda1) (* phi1 (+ (* 1/4 (* lambda1 phi2)) (* phi1 (+ (* -1/96 (* lambda1 (* phi1 phi2))) (* 1/8 lambda1)))))) |
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/96 binary64) (*.f64 (*.f64 phi2 phi1) lambda1) (*.f64 #s(literal 1/8 binary64) lambda1)) phi1 (*.f64 (*.f64 lambda1 phi2) #s(literal 1/4 binary64))) phi1 (neg.f64 lambda1)) |
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R) |
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) phi1 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal -1/2 binary64))) (*.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) R)))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) R)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) R)) |
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) |
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) phi1 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2))))) phi1 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2)) |
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (+.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal -1/2 binary64))) phi1)))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal -2 binary64) phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) phi1 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) phi2)) |
(* -1 (* lambda1 (cos (* 1/2 phi2)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* 1/2 (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda1 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda1 (sin (* 1/2 phi2))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 lambda1 phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/8 binary64))) phi1 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda1 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda1 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda1 (cos (* 1/2 phi2))))))))) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) (*.f64 (*.f64 #s(literal 1/8 binary64) lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(cos (* 1/2 phi2)) |
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) |
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) |
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) |
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* -1 lambda1) |
(neg.f64 lambda1) |
(+ (* -1 lambda1) (* 1/8 (* lambda1 (pow phi1 2)))) |
(fma.f64 (*.f64 (*.f64 phi1 phi1) lambda1) #s(literal 1/8 binary64) (neg.f64 lambda1)) |
(+ (* -1 lambda1) (* (pow phi1 2) (+ (* -1/384 (* lambda1 (pow phi1 2))) (* 1/8 lambda1)))) |
(fma.f64 (fma.f64 #s(literal -1/384 binary64) (*.f64 (*.f64 phi1 phi1) lambda1) (*.f64 #s(literal 1/8 binary64) lambda1)) (*.f64 phi1 phi1) (neg.f64 lambda1)) |
(+ (* -1 lambda1) (* (pow phi1 2) (+ (* 1/8 lambda1) (* (pow phi1 2) (+ (* -1/384 lambda1) (* 1/46080 (* lambda1 (pow phi1 2)))))))) |
(fma.f64 (fma.f64 (fma.f64 #s(literal 1/46080 binary64) (*.f64 (*.f64 phi1 phi1) lambda1) (*.f64 #s(literal -1/384 binary64) lambda1)) (*.f64 phi1 phi1) (*.f64 #s(literal 1/8 binary64) lambda1)) (*.f64 phi1 phi1) (neg.f64 lambda1)) |
(* 1/2 (* phi1 phi2)) |
(*.f64 (*.f64 phi2 phi1) #s(literal 1/2 binary64)) |
(* phi1 (+ (* -1/48 (* (pow phi1 2) phi2)) (* 1/2 phi2))) |
(*.f64 (*.f64 phi2 (fma.f64 #s(literal -1/48 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64))) phi1) |
(* phi1 (+ (* 1/2 phi2) (* (pow phi1 2) (+ (* -1/48 phi2) (* 1/3840 (* (pow phi1 2) phi2)))))) |
(*.f64 (fma.f64 (*.f64 phi2 (fma.f64 #s(literal 1/3840 binary64) (*.f64 phi1 phi1) #s(literal -1/48 binary64))) (*.f64 phi1 phi1) (*.f64 phi2 #s(literal 1/2 binary64))) phi1) |
(* phi1 (+ (* 1/2 phi2) (* (pow phi1 2) (+ (* -1/48 phi2) (* (pow phi1 2) (+ (* -1/645120 (* (pow phi1 2) phi2)) (* 1/3840 phi2))))))) |
(*.f64 (fma.f64 (fma.f64 (*.f64 phi2 (fma.f64 #s(literal -1/645120 binary64) (*.f64 phi1 phi1) #s(literal 1/3840 binary64))) (*.f64 phi1 phi1) (*.f64 #s(literal -1/48 binary64) phi2)) (*.f64 phi1 phi1) (*.f64 phi2 #s(literal 1/2 binary64))) phi1) |
(* R phi1) |
(*.f64 phi1 R) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(*.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64) (-.f64 R (/.f64 (*.f64 phi2 R) phi1))) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(*.f64 (fma.f64 (neg.f64 R) (/.f64 phi2 phi1) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) R)) phi1) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1) (*.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) phi1) |
phi1 |
(* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) #s(literal 1 binary64)) phi1) |
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) #s(literal -1/8 binary64) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) #s(literal 1 binary64))) phi1) |
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(*.f64 (+.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) #s(literal -1/8 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi1 #s(literal 6 binary64)))) #s(literal 1/16 binary64))) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) #s(literal 1 binary64))) phi1) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* R phi1) |
(*.f64 phi1 R) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(*.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64) (-.f64 R (/.f64 (*.f64 phi2 R) phi1))) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(*.f64 (fma.f64 (neg.f64 R) (/.f64 phi2 phi1) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) R)) phi1) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* R phi1) |
(*.f64 phi1 R) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(*.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64) (-.f64 R (/.f64 (*.f64 phi2 R) phi1))) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(*.f64 (fma.f64 (neg.f64 R) (/.f64 phi2 phi1) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) R)) phi1) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1) (*.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) phi1) |
(* R phi1) |
(*.f64 phi1 R) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(*.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64) (-.f64 R (/.f64 (*.f64 phi2 R) phi1))) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(*.f64 (fma.f64 (neg.f64 R) (/.f64 phi2 phi1) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) R)) phi1) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(* R phi1) |
(*.f64 phi1 R) |
(* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) |
(*.f64 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
(*.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64) (-.f64 R (/.f64 (*.f64 phi2 R) phi1))) phi1) |
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
(*.f64 (fma.f64 (neg.f64 R) (/.f64 phi2 phi1) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) R)) phi1) |
phi1 |
(* phi1 (+ 1 (* -1 (/ phi2 phi1)))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) phi1) |
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) phi1) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1) (*.f64 phi2 (/.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 phi1 #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) phi1) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (+ phi1 phi2))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* -1 (* R phi1)) |
(*.f64 (neg.f64 R) phi1) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (*.f64 phi2 R) phi1))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))) #s(literal -1/2 binary64) (*.f64 phi2 R)) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi2 R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)))))) (neg.f64 phi1))) phi1)) (neg.f64 phi1)) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)) #s(literal -1/2 binary64) phi2) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) phi1)) phi1)) (neg.f64 phi1)) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
(*.f64 (neg.f64 phi1) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) #s(literal 1 binary64))) |
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
(*.f64 (neg.f64 phi1) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) #s(literal -1/8 binary64) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) #s(literal 1 binary64)))) |
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
(*.f64 (neg.f64 phi1) (+.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) #s(literal -1/8 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi1 #s(literal 6 binary64)))) #s(literal 1/16 binary64))) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) #s(literal 1 binary64)))) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* (cos (* 1/2 phi1)) (- lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* R phi1)) |
(*.f64 (neg.f64 R) phi1) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (*.f64 phi2 R) phi1))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))) #s(literal -1/2 binary64) (*.f64 phi2 R)) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi2 R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)))))) (neg.f64 phi1))) phi1)) (neg.f64 phi1)) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* -1 (* R phi1)) |
(*.f64 (neg.f64 R) phi1) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (*.f64 phi2 R) phi1))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))) #s(literal -1/2 binary64) (*.f64 phi2 R)) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi2 R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)))))) (neg.f64 phi1))) phi1)) (neg.f64 phi1)) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)) #s(literal -1/2 binary64) phi2) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) phi1)) phi1)) (neg.f64 phi1)) |
(* -1 (* R phi1)) |
(*.f64 (neg.f64 R) phi1) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (*.f64 phi2 R) phi1))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))) #s(literal -1/2 binary64) (*.f64 phi2 R)) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi2 R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)))))) (neg.f64 phi1))) phi1)) (neg.f64 phi1)) |
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(+ (* -1 (* lambda1 (cos (* 1/2 phi1)))) (* 1/2 (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(* -1 (* R phi1)) |
(*.f64 (neg.f64 R) phi1) |
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (*.f64 phi2 R) phi1))) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))) #s(literal -1/2 binary64) (*.f64 phi2 R)) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) |
(*.f64 (-.f64 R (/.f64 (fma.f64 phi2 R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)))))) (neg.f64 phi1))) phi1)) (neg.f64 phi1)) |
(* -1 phi1) |
(neg.f64 phi1) |
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) |
(*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)) #s(literal -1/2 binary64) phi2) phi1)) (neg.f64 phi1)) |
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) |
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) phi1)) phi1)) (neg.f64 phi1)) |
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(cos (* 1/2 (- phi2 (* -1 phi1)))) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* phi2 (sin (* 1/2 phi1))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda2 (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda2) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda2 (*.f64 (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) phi1) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) phi1)) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) lambda2) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1)))) lambda2 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) phi1)) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) lambda2 (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) lambda2 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) phi1)) |
(* lambda1 (cos (* 1/2 phi1))) |
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda2 (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda2 (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda2) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda2 (*.f64 (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) |
(hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) phi2) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) phi2)) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) lambda2) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1)))) lambda2 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) phi2)) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) lambda2 (*.f64 (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) lambda2 (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) phi2)) |
(* lambda1 (cos (* 1/2 phi2))) |
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda2 (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
(-.f64 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 R) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) lambda2)))) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) lambda2 (*.f64 (neg.f64 (*.f64 (*.f64 lambda1 R) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (*.f64 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R)) |
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) |
(hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) |
(fma.f64 (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) |
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda2) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) |
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) lambda2 (*.f64 (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) lambda2 (hypot.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))) |
lambda1 |
(+ lambda1 (* -1 lambda2)) |
(-.f64 lambda1 lambda2) |
(+ lambda1 (* -1 lambda2)) |
(-.f64 lambda1 lambda2) |
(+ lambda1 (* -1 lambda2)) |
(-.f64 lambda1 lambda2) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2))) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2)))) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 R (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2)))) lambda2) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda1 (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda2 lambda2)))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2) |
(* lambda2 (cos (* 1/2 phi1))) |
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) |
(* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1)))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 phi1 phi1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda2) |
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1))))))))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 phi1 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (/.f64 phi1 (*.f64 lambda2 lambda2)) (*.f64 (/.f64 lambda1 (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (*.f64 phi1 phi1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda2) |
(* -1 (* lambda2 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) |
(*.f64 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda2) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) |
(*.f64 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda2) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) |
(*.f64 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) lambda2) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2))) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2)))) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 R (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2)))) lambda2) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2))) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2)))) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 R (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2)))) lambda2) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda1 (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda2 lambda2)))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2) |
(* lambda2 (cos (* 1/2 phi2))) |
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) |
(* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2)))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) lambda2) |
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* (pow lambda2 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2))))))))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 phi2 (*.f64 lambda2 lambda2)) (/.f64 phi2 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (/.f64 lambda1 (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) lambda2) |
(* -1 (* lambda2 (cos (* 1/2 phi2)))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) |
(*.f64 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) lambda2) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) |
(*.f64 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) lambda2) |
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) |
(*.f64 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) lambda2) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2))) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2)))) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 R (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2)))) lambda2) |
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2))) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2)))) lambda2) |
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
(*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 R (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2)))) lambda2) |
(* lambda2 (cos (* 1/2 (+ phi1 phi2)))) |
(*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) |
(*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2) |
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) |
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda1 (pow.f64 lambda2 #s(literal 3 binary64))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 lambda2 lambda2)))) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2) |
(* -1 lambda2) |
(neg.f64 lambda2) |
(* lambda2 (- (/ lambda1 lambda2) 1)) |
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2) |
(* lambda2 (- (/ lambda1 lambda2) 1)) |
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2) |
(* lambda2 (- (/ lambda1 lambda2) 1)) |
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2)))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (neg.f64 lambda2)))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) (neg.f64 lambda2))) (neg.f64 lambda2)))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda2)) lambda2))) |
(* -1 (* lambda2 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda2 (cos (* 1/2 phi1))))) (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 phi1 phi1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)) lambda2))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda2)) (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (*.f64 phi1 phi1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) lambda2)) lambda2))) |
(* -1 (* lambda2 (cos (* 1/2 phi1)))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2)))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (neg.f64 lambda2)))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) (neg.f64 lambda2))) (neg.f64 lambda2)))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2)))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (neg.f64 lambda2)))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) (neg.f64 lambda2))) (neg.f64 lambda2)))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda2)) lambda2))) |
(* -1 (* lambda2 (cos (* 1/2 phi2)))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda2 (cos (* 1/2 phi2))))) (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1)) lambda2))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda2)) (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) lambda2)) lambda2))) |
(* -1 (* lambda2 (cos (* 1/2 phi2)))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2)))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (neg.f64 lambda2)))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) (neg.f64 lambda2))) (neg.f64 lambda2)))) |
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2)))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (neg.f64 lambda2)))) |
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (fma.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))) (neg.f64 lambda2))) (neg.f64 lambda2)))) |
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda2))) |
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) lambda2)) lambda2))) |
(* -1 lambda2) |
(neg.f64 lambda2) |
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))) |
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))) |
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) |
(*.f64 (neg.f64 lambda2) (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) |
(*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
(*.f64 (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) R) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* -1 (* R lambda1)) |
(*.f64 (neg.f64 R) lambda1) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R lambda1) |
(*.f64 lambda1 R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) |
(*.f64 (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2)) R) |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 62 | 571 |
| 0 | 92 | 483 |
| 1 | 255 | 483 |
| 2 | 1572 | 483 |
| 0 | 8195 | 443 |
| 1× | iter limit |
| 1× | node limit |
| 1× | iter limit |
| Inputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) |
(hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1) |
#s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) |
(*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)))) |
(*.f64 R lambda1) |
#s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) |
(hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2) |
#s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) |
(neg.f64 (*.f64 lambda1 R)) |
(*.f64 lambda1 R) |
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) |
#s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) |
(-.f64 lambda1 lambda2) |
#s(approx (cos (* phi2 1/2)) #s(literal 1 binary64)) |
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) |
(*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) |
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) |
| Outputs |
|---|
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
#<batchref> |
Compiled 36 682 to 2 664 computations (92.7% saved)
48 alts after pruning (43 fresh and 5 done)
| Pruned | Kept | Total | |
|---|---|---|---|
| New | 1 186 | 11 | 1 197 |
| Fresh | 7 | 32 | 39 |
| Picked | 2 | 3 | 5 |
| Done | 0 | 2 | 2 |
| Total | 1 195 | 48 | 1 243 |
| Status | Accuracy | Program |
|---|---|---|
| 21.7% | (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) | |
| 26.1% | (*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))) | |
| 19.8% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) phi2))) | |
| 22.9% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (exp.f64 (log.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)))) phi1))) | |
| 53.7% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)) phi1))) | |
| 51.8% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi1))) | |
| ✓ | 64.4% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) |
| 51.5% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1)) phi2))) | |
| 50.5% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi2))) | |
| 34.6% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) | |
| 13.3% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)))))) | |
| 20.2% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) | |
| 21.0% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) | |
| 21.1% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) | |
| 34.2% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) (/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)) lambda2)) lambda2))) | |
| ✓ | 32.6% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
| 36.4% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) lambda2) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))))) | |
| 17.0% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (fma.f64 (*.f64 lambda1 phi2) #s(literal 1/4 binary64) (*.f64 (*.f64 lambda1 phi1) #s(literal 1/8 binary64))) phi1 (neg.f64 lambda1)))))) | |
| 21.3% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (*.f64 (*.f64 phi2 phi1) lambda1) #s(literal 1/4 binary64) (neg.f64 lambda1)))))) | |
| 17.9% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) #s(literal -1/2 binary64) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2))) (neg.f64 phi2)))))) | |
| 23.8% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) | |
| 53.9% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) phi1)))) | |
| 10.1% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) | |
| 19.8% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)))) | |
| 8.6% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)))) | |
| 52.0% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) phi2)))) | |
| 21.7% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)))) | |
| 57.2% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2)) | |
| 53.5% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) phi2)) | |
| 7.4% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) R) lambda1)) | |
| 20.5% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) | |
| 12.1% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) | |
| 15.0% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 phi2 phi2) #s(literal 1/384 binary64)) (*.f64 phi2 phi2) #s(literal -1/8 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) | |
| 14.6% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) | |
| ✓ | 3.1% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) |
| ✓ | 20.1% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
| 21.3% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) | |
| 20.4% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) | |
| 21.1% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) | |
| 10.9% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (-.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) | |
| 14.8% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) | |
| 9.4% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) | |
| 7.0% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) | |
| 9.5% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) | |
| 54.4% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi1) (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R))) | |
| 15.2% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 lambda2) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2))))) | |
| ✓ | 32.7% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
| 11.0% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(approx (* (neg (* R lambda2)) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 (*.f64 lambda2 phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (*.f64 lambda2 R) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) phi1 (*.f64 (*.f64 (neg.f64 lambda2) R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) |
Compiled 2 044 to 1 100 computations (46.2% saved)
| Inputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (*.f64 (*.f64 phi2 phi1) lambda1) #s(literal 1/4 binary64) (neg.f64 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi1) (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (+.f64 #s(literal 0 binary64) phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (fma.f64 (*.f64 lambda1 phi2) #s(literal 1/4 binary64) (*.f64 (*.f64 lambda1 phi1) #s(literal 1/8 binary64))) phi1 (neg.f64 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 phi2 phi2) #s(literal 1/384 binary64)) (*.f64 phi2 phi2) #s(literal -1/8 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 #s(approx (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))) (*.f64 phi1 phi1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi1))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) R) lambda1)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) lambda2) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal -2 binary64))) R) lambda1)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) (/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)) lambda2)) lambda2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) phi2)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1)) phi2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)) phi1))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2))))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (neg.f64 lambda2) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda2) (-.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) #s(literal -1/2 binary64) (*.f64 lambda1 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2))) (neg.f64 phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (fma.f64 (neg.f64 R) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda2 lambda1)) (*.f64 R (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) lambda1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 lambda2) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R) (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) lambda2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 lambda2) (fma.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) R (/.f64 (*.f64 (*.f64 lambda1 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 lambda2))))) |
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(approx (* (neg (* R lambda2)) (cos (* (+ phi2 phi1) 1/2))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) R) (*.f64 (*.f64 lambda2 phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (*.f64 lambda2 R) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) phi1 (*.f64 (*.f64 (neg.f64 lambda2) R) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (neg.f64 phi1))) phi1)) (*.f64 phi1 phi1))))) |
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) #s(approx (cos (/ (+ phi1 phi2) 2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (exp.f64 (log.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)))) phi1))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) phi2))) |
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (exp.f64 (log.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal -1/2 binary64))) (-.f64 lambda1 lambda2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (-.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 lambda1 lambda2))) lambda2))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) phi2 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (fma.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) phi2 (fma.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) phi1))) phi2 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) |
| Outputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) |
9 calls:
| 69.0ms | lambda1 |
| 50.0ms | phi1 |
| 40.0ms | (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) |
| 37.0ms | R |
| 28.0ms | (-.f64 lambda1 lambda2) |
| Accuracy | Segments | Branch |
|---|---|---|
| 77.4% | 2 | R |
| 77.4% | 3 | lambda1 |
| 76.0% | 3 | lambda2 |
| 93.2% | 2 | phi1 |
| 92.8% | 2 | phi2 |
| 82.0% | 2 | (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
| 82.0% | 2 | (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) |
| 82.0% | 2 | (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) |
| 80.5% | 3 | (-.f64 lambda1 lambda2) |
Compiled 99 to 79 computations (20.2% saved)
| Inputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (*.f64 (*.f64 phi2 phi1) lambda1) #s(literal 1/4 binary64) (neg.f64 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi1) (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (+.f64 #s(literal 0 binary64) phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (fma.f64 (*.f64 lambda1 phi2) #s(literal 1/4 binary64) (*.f64 (*.f64 lambda1 phi1) #s(literal 1/8 binary64))) phi1 (neg.f64 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 phi2 phi2) #s(literal 1/384 binary64)) (*.f64 phi2 phi2) #s(literal -1/8 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 #s(approx (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))) (*.f64 phi1 phi1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi1))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) R) lambda1)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) lambda2) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal -2 binary64))) R) lambda1)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) (/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)) lambda2)) lambda2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) phi2)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1)) phi2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)) phi1))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) |
| Outputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)) phi1))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2))) |
2 calls:
| 25.0ms | phi2 |
| 17.0ms | phi1 |
| Accuracy | Segments | Branch |
|---|---|---|
| 87.8% | 2 | phi2 |
| 90.8% | 2 | phi1 |
Compiled 2 to 10 computations (-400% saved)
| Inputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (*.f64 (*.f64 phi2 phi1) lambda1) #s(literal 1/4 binary64) (neg.f64 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi1) (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (+.f64 #s(literal 0 binary64) phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (fma.f64 (*.f64 lambda1 phi2) #s(literal 1/4 binary64) (*.f64 (*.f64 lambda1 phi1) #s(literal 1/8 binary64))) phi1 (neg.f64 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 phi2 phi2) #s(literal 1/384 binary64)) (*.f64 phi2 phi2) #s(literal -1/8 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 #s(approx (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))) (*.f64 phi1 phi1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi1))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) R) lambda1)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) lambda2) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal -2 binary64))) R) lambda1)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) (/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)) lambda2)) lambda2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) phi2)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1)) phi2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)) phi1))) |
| Outputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)) phi1))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) |
2 calls:
| 81.0ms | phi1 |
| 13.0ms | phi2 |
| Accuracy | Segments | Branch |
|---|---|---|
| 84.2% | 2 | phi2 |
| 87.2% | 2 | phi1 |
Compiled 2 to 10 computations (-400% saved)
| Inputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (*.f64 (*.f64 phi2 phi1) lambda1) #s(literal 1/4 binary64) (neg.f64 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi1) (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (+.f64 #s(literal 0 binary64) phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (fma.f64 (*.f64 lambda1 phi2) #s(literal 1/4 binary64) (*.f64 (*.f64 lambda1 phi1) #s(literal 1/8 binary64))) phi1 (neg.f64 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 phi2 phi2) #s(literal 1/384 binary64)) (*.f64 phi2 phi2) #s(literal -1/8 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 #s(approx (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))) (*.f64 phi1 phi1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi1))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) R) lambda1)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) lambda2) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal -2 binary64))) R) lambda1)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) (/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)) lambda2)) lambda2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) phi2)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1)) phi2))) |
| Outputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) |
1 calls:
| 14.0ms | phi1 |
| Accuracy | Segments | Branch |
|---|---|---|
| 86.5% | 2 | phi1 |
Compiled 1 to 5 computations (-400% saved)
| Inputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (*.f64 (*.f64 phi2 phi1) lambda1) #s(literal 1/4 binary64) (neg.f64 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi1) (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (+.f64 #s(literal 0 binary64) phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (fma.f64 (*.f64 lambda1 phi2) #s(literal 1/4 binary64) (*.f64 (*.f64 lambda1 phi1) #s(literal 1/8 binary64))) phi1 (neg.f64 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 phi2 phi2) #s(literal 1/384 binary64)) (*.f64 phi2 phi2) #s(literal -1/8 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 #s(approx (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))) (*.f64 phi1 phi1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi1))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) R) lambda1)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 lambda2 R) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) lambda2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 lambda1 R)) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 lambda1) (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) lambda2) (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal -2 binary64))) R) lambda1)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (cos (* (+ phi2 phi1) 1/2)) (* (cos (* (+ phi2 phi1) 1/2)) (/ lambda1 lambda2))) (/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)) lambda2)) lambda2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (* (cos (* phi2 1/2)) (- lambda1 lambda2))) (* phi2 phi2))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda2) phi2)))) |
| Outputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) |
1 calls:
| 33.0ms | phi1 |
| Accuracy | Segments | Branch |
|---|---|---|
| 85.8% | 2 | phi1 |
Compiled 1 to 5 computations (-400% saved)
| Inputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (*.f64 (*.f64 phi2 phi1) lambda1) #s(literal 1/4 binary64) (neg.f64 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi1) (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (+.f64 #s(literal 0 binary64) phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (fma.f64 (*.f64 lambda1 phi2) #s(literal 1/4 binary64) (*.f64 (*.f64 lambda1 phi1) #s(literal 1/8 binary64))) phi1 (neg.f64 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 phi2 phi2) #s(literal 1/384 binary64)) (*.f64 phi2 phi2) #s(literal -1/8 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 #s(approx (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))) (*.f64 phi1 phi1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi1))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) |
| Outputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2))) |
1 calls:
| 7.0ms | phi1 |
| Accuracy | Segments | Branch |
|---|---|---|
| 85.3% | 2 | phi1 |
Compiled 1 to 5 computations (-400% saved)
| Inputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (*.f64 (*.f64 phi2 phi1) lambda1) #s(literal 1/4 binary64) (neg.f64 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi1) (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (+.f64 #s(literal 0 binary64) phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (fma.f64 (*.f64 lambda1 phi2) #s(literal 1/4 binary64) (*.f64 (*.f64 lambda1 phi1) #s(literal 1/8 binary64))) phi1 (neg.f64 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 phi2 phi2) #s(literal 1/384 binary64)) (*.f64 phi2 phi2) #s(literal -1/8 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 #s(approx (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))) (*.f64 phi1 phi1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi2))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi1))) |
| Outputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi2))) |
9 calls:
| 28.0ms | (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
| 27.0ms | (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) |
| 26.0ms | lambda1 |
| 6.0ms | (-.f64 lambda1 lambda2) |
| 6.0ms | phi1 |
| Accuracy | Segments | Branch |
|---|---|---|
| 64.8% | 2 | lambda2 |
| 66.2% | 3 | lambda1 |
| 60.2% | 2 | R |
| 61.9% | 2 | (-.f64 lambda1 lambda2) |
| 58.8% | 2 | (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
| 60.2% | 2 | (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) |
| 60.2% | 2 | (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) |
| 73.0% | 2 | phi2 |
| 73.4% | 2 | phi1 |
Compiled 99 to 79 computations (20.2% saved)
| Inputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (*.f64 (*.f64 phi2 phi1) lambda1) #s(literal 1/4 binary64) (neg.f64 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi1) (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (+.f64 #s(literal 0 binary64) phi1)))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (fma.f64 (*.f64 lambda1 phi2) #s(literal 1/4 binary64) (*.f64 (*.f64 lambda1 phi1) #s(literal 1/8 binary64))) phi1 (neg.f64 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 phi2 phi2) #s(literal 1/384 binary64)) (*.f64 phi2 phi2) #s(literal -1/8 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 #s(approx (- 1 (/ (+ (* phi2 2) (/ (+ (* (pow (- lambda1 lambda2) 2) (pow (cos (* (+ phi2 phi1) 1/2)) 2)) (* phi2 phi2)) (neg phi1))) phi1)) (*.f64 (/.f64 phi2 phi1) (/.f64 phi2 phi1))) (*.f64 phi1 phi1))))) |
| Outputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
4 calls:
| 6.0ms | phi2 |
| 5.0ms | phi1 |
| 5.0ms | lambda2 |
| 5.0ms | lambda1 |
| Accuracy | Segments | Branch |
|---|---|---|
| 61.3% | 2 | lambda1 |
| 57.2% | 1 | lambda2 |
| 61.0% | 2 | phi2 |
| 65.4% | 3 | phi1 |
Compiled 4 to 20 computations (-400% saved)
| Inputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (*.f64 (*.f64 phi2 phi1) lambda1) #s(literal 1/4 binary64) (neg.f64 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi1) (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R))) |
| Outputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi1) (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
1 calls:
| 4.0ms | phi1 |
| Accuracy | Segments | Branch |
|---|---|---|
| 65.4% | 3 | phi1 |
Compiled 1 to 5 computations (-400% saved)
| Inputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (*.f64 (*.f64 phi2 phi1) lambda1) #s(literal 1/4 binary64) (neg.f64 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2)) |
| Outputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
1 calls:
| 5.0ms | phi1 |
| Accuracy | Segments | Branch |
|---|---|---|
| 65.7% | 4 | phi1 |
Compiled 1 to 5 computations (-400% saved)
| Inputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (*.f64 (*.f64 phi2 phi1) lambda1) #s(literal 1/4 binary64) (neg.f64 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) phi2)) |
| Outputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) phi2)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
1 calls:
| 3.0ms | phi1 |
| Accuracy | Segments | Branch |
|---|---|---|
| 65.3% | 4 | phi1 |
Compiled 1 to 5 computations (-400% saved)
| Inputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) #s(literal 1 binary64))))) |
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) #s(approx (cos (* (+ phi2 phi1) 1/2)) #s(approx (cos (* phi2 1/2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)))))) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (fma.f64 (*.f64 (*.f64 phi2 phi1) lambda1) #s(literal 1/4 binary64) (neg.f64 lambda1)))))) |
| Outputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
7 calls:
| 25.0ms | (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) |
| 3.0ms | R |
| 3.0ms | phi1 |
| 3.0ms | (-.f64 lambda1 lambda2) |
| 3.0ms | phi2 |
| Accuracy | Segments | Branch |
|---|---|---|
| 39.7% | 3 | (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) |
| 39.7% | 3 | (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) |
| 36.7% | 2 | R |
| 57.4% | 3 | phi2 |
| 47.7% | 4 | lambda1 |
| 44.6% | 3 | (-.f64 lambda1 lambda2) |
| 63.1% | 4 | phi1 |
Compiled 66 to 57 computations (13.6% saved)
| Inputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) |
| Outputs |
|---|
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
4 calls:
| 2.0ms | (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
| 2.0ms | phi2 |
| 2.0ms | phi1 |
| 2.0ms | lambda2 |
| Accuracy | Segments | Branch |
|---|---|---|
| 46.7% | 2 | phi2 |
| 36.1% | 2 | lambda2 |
| 34.6% | 2 | (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
| 38.6% | 3 | phi1 |
Compiled 35 to 32 computations (8.6% saved)
Total -0.0b remaining (-0%)
Threshold costs -0b (-0%)
| Inputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
| Outputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
9 calls:
| 1.0ms | phi2 |
| 1.0ms | phi1 |
| 1.0ms | (-.f64 lambda1 lambda2) |
| 1.0ms | lambda2 |
| 1.0ms | R |
| Accuracy | Segments | Branch |
|---|---|---|
| 32.7% | 1 | (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
| 32.7% | 1 | lambda2 |
| 32.7% | 1 | R |
| 32.7% | 1 | phi1 |
| 32.7% | 1 | (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) |
| 32.7% | 1 | (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) |
| 32.7% | 1 | (-.f64 lambda1 lambda2) |
| 32.7% | 1 | lambda1 |
| 32.7% | 1 | phi2 |
Compiled 99 to 79 computations (20.2% saved)
| 1× | binary-search |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 20.0ms | -1.7801689046644648e+62 | -4.3987705252150325e+60 |
| 10.0ms | 52× | 1 | valid |
| 5.0ms | 60× | 0 | valid |
Compiled 217 to 218 computations (-0.5% saved)
ival-cos: 3.0ms (26.4% of total)ival-mult: 2.0ms (17.6% of total)ival-hypot: 2.0ms (17.6% of total)ival-add: 1.0ms (8.8% of total)adjust: 1.0ms (8.8% of total)ival-div: 1.0ms (8.8% of total)ival-sub: 1.0ms (8.8% of total)ival-assert: 0.0ms (0% of total)ival-true: 0.0ms (0% of total)exact: 0.0ms (0% of total)| 1× | binary-search |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 17.0ms | -1.7801689046644648e+62 | -4.3987705252150325e+60 |
| 8.0ms | 41× | 1 | valid |
| 5.0ms | 55× | 0 | valid |
Compiled 210 to 218 computations (-3.8% saved)
ival-mult: 2.0ms (21.9% of total)ival-hypot: 2.0ms (21.9% of total)ival-cos: 2.0ms (21.9% of total)ival-add: 1.0ms (11% of total)adjust: 1.0ms (11% of total)ival-div: 1.0ms (11% of total)ival-sub: 1.0ms (11% of total)ival-assert: 0.0ms (0% of total)ival-true: 0.0ms (0% of total)exact: 0.0ms (0% of total)| 1× | binary-search |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 1.0ms | -1.7801689046644648e+62 | -4.3987705252150325e+60 |
Compiled 182 to 197 computations (-8.2% saved)
| 1× | binary-search |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 9.0ms | -1.7801689046644648e+62 | -4.3987705252150325e+60 |
| 4.0ms | 21× | 1 | valid |
| 2.0ms | 27× | 0 | valid |
Compiled 182 to 197 computations (-8.2% saved)
adjust: 1.0ms (21.6% of total)ival-mult: 1.0ms (21.6% of total)ival-hypot: 1.0ms (21.6% of total)ival-cos: 1.0ms (21.6% of total)ival-add: 0.0ms (0% of total)ival-div: 0.0ms (0% of total)ival-assert: 0.0ms (0% of total)ival-sub: 0.0ms (0% of total)ival-true: 0.0ms (0% of total)exact: 0.0ms (0% of total)| 1× | binary-search |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 11.0ms | -1.7801689046644648e+62 | -4.3987705252150325e+60 |
| 6.0ms | 29× | 1 | valid |
| 3.0ms | 35× | 0 | valid |
Compiled 161 to 176 computations (-9.3% saved)
ival-div: 1.0ms (15.9% of total)adjust: 1.0ms (15.9% of total)ival-hypot: 1.0ms (15.9% of total)ival-sub: 1.0ms (15.9% of total)ival-cos: 1.0ms (15.9% of total)ival-mult: 1.0ms (15.9% of total)ival-add: 0.0ms (0% of total)ival-assert: 0.0ms (0% of total)ival-true: 0.0ms (0% of total)exact: 0.0ms (0% of total)| 1× | binary-search |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 9.0ms | -1.7801689046644648e+62 | -4.3987705252150325e+60 |
| 4.0ms | 20× | 1 | valid |
| 2.0ms | 28× | 0 | valid |
Compiled 175 to 190 computations (-8.6% saved)
adjust: 1.0ms (21.7% of total)ival-mult: 1.0ms (21.7% of total)ival-hypot: 1.0ms (21.7% of total)ival-cos: 1.0ms (21.7% of total)ival-add: 0.0ms (0% of total)ival-div: 0.0ms (0% of total)ival-assert: 0.0ms (0% of total)ival-sub: 0.0ms (0% of total)ival-true: 0.0ms (0% of total)exact: 0.0ms (0% of total)| 1× | binary-search |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 6.0ms | -1.7801689046644648e+62 | -4.3987705252150325e+60 |
| 3.0ms | 13× | 1 | valid |
| 2.0ms | 19× | 0 | valid |
Compiled 175 to 197 computations (-12.6% saved)
ival-mult: 1.0ms (33.3% of total)ival-hypot: 1.0ms (33.3% of total)ival-cos: 1.0ms (33.3% of total)ival-add: 0.0ms (0% of total)adjust: 0.0ms (0% of total)ival-div: 0.0ms (0% of total)ival-assert: 0.0ms (0% of total)ival-sub: 0.0ms (0% of total)ival-true: 0.0ms (0% of total)exact: 0.0ms (0% of total)| 2× | binary-search |
| 1× | narrow-enough |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 18.0ms | 6.93103040947086e-291 | 5.5261222895000834e-288 |
| 26.0ms | -12293055148148154000.0 | -13533725113751798.0 |
| 17.0ms | 75× | 1 | valid |
| 16.0ms | 181× | 0 | valid |
Compiled 267 to 366 computations (-37.1% saved)
ival-cos: 7.0ms (29% of total)ival-hypot: 4.0ms (16.5% of total)ival-mult: 4.0ms (16.5% of total)ival-sub: 3.0ms (12.4% of total)ival-add: 2.0ms (8.3% of total)ival-div: 2.0ms (8.3% of total)adjust: 2.0ms (8.3% of total)ival-assert: 0.0ms (0% of total)ival-true: 0.0ms (0% of total)exact: 0.0ms (0% of total)| 2× | binary-search |
| 1× | narrow-enough |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 1.0ms | 6.93103040947086e-291 | 5.5261222895000834e-288 |
| 1.0ms | -12293055148148154000.0 | -13533725113751798.0 |
Compiled 267 to 358 computations (-34.1% saved)
| 3× | binary-search |
| 1× | narrow-enough |
| 1× | narrow-enough |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 1.0ms | 6.93103040947086e-291 | 5.5261222895000834e-288 |
| 1.0ms | -12293055148148154000.0 | -13533725113751798.0 |
| 23.0ms | -1.3185792928053038e+125 | -4.932532891793145e+116 |
| 9.0ms | 102× | 0 | valid |
| 8.0ms | 42× | 1 | valid |
Compiled 394 to 530 computations (-34.5% saved)
ival-hypot: 3.0ms (25% of total)ival-mult: 2.0ms (16.6% of total)ival-cos: 2.0ms (16.6% of total)ival-add: 1.0ms (8.3% of total)adjust: 1.0ms (8.3% of total)ival-div: 1.0ms (8.3% of total)ival-sub: 1.0ms (8.3% of total)ival-assert: 0.0ms (0% of total)ival-true: 0.0ms (0% of total)exact: 0.0ms (0% of total)| 3× | binary-search |
| 1× | narrow-enough |
| 1× | narrow-enough |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 1.0ms | 6.93103040947086e-291 | 5.5261222895000834e-288 |
| 1.0ms | -12293055148148154000.0 | -13533725113751798.0 |
| 17.0ms | -5.295640484987494e+89 | -3.622632310051234e+88 |
| 8.0ms | 42× | 1 | valid |
| 5.0ms | 54× | 0 | valid |
Compiled 349 to 470 computations (-34.7% saved)
ival-mult: 2.0ms (21.2% of total)ival-hypot: 2.0ms (21.2% of total)ival-cos: 2.0ms (21.2% of total)ival-add: 1.0ms (10.6% of total)adjust: 1.0ms (10.6% of total)ival-div: 1.0ms (10.6% of total)ival-sub: 1.0ms (10.6% of total)ival-assert: 0.0ms (0% of total)ival-true: 0.0ms (0% of total)exact: 0.0ms (0% of total)| 3× | binary-search |
| 1× | narrow-enough |
| 1× | narrow-enough |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 1.0ms | 6.93103040947086e-291 | 5.5261222895000834e-288 |
| 4.0ms | -12293055148148154000.0 | -13533725113751798.0 |
| 1.0ms | -1.7801689046644648e+62 | -4.3987705252150325e+60 |
| 2.0ms | 9× | 1 | valid |
| 1.0ms | 7× | 0 | valid |
Compiled 274 to 445 computations (-62.4% saved)
ival-cos: 1.0ms (48.9% of total)ival-add: 0.0ms (0% of total)adjust: 0.0ms (0% of total)ival-div: 0.0ms (0% of total)ival-mult: 0.0ms (0% of total)ival-hypot: 0.0ms (0% of total)ival-assert: 0.0ms (0% of total)ival-sub: 0.0ms (0% of total)ival-true: 0.0ms (0% of total)exact: 0.0ms (0% of total)| 1× | binary-search |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 20.0ms | 6.3892507241313035e-22 | 3.963231345183621e-14 |
| 10.0ms | 121× | 0 | valid |
| 5.0ms | 23× | 1 | valid |
Compiled 134 to 193 computations (-44% saved)
ival-mult: 2.0ms (20% of total)ival-hypot: 2.0ms (20% of total)ival-cos: 2.0ms (20% of total)ival-add: 1.0ms (10% of total)adjust: 1.0ms (10% of total)ival-div: 1.0ms (10% of total)ival-sub: 1.0ms (10% of total)ival-assert: 0.0ms (0% of total)ival-true: 0.0ms (0% of total)exact: 0.0ms (0% of total)| 1× | egg-herbie |
Useful iterations: 3 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 148 | 1654 |
| 1 | 245 | 1648 |
| 2 | 402 | 1636 |
| 3 | 877 | 1633 |
| 4 | 2235 | 1633 |
| 5 | 5893 | 1633 |
| 1× | node limit |
| Inputs |
|---|
(if (<=.f64 phi1 #s(literal -4999999999999999746935676485370094334818225055067050365419520 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)))) |
(if (<=.f64 phi1 #s(literal -98000000000000005030673108054973016370438997225780141841448960 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)) phi1))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)))) |
(if (<=.f64 phi1 #s(literal -98000000000000005030673108054973016370438997225780141841448960 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)) phi1))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)))) |
(if (<=.f64 phi1 #s(literal -6399999999999999818802435171869708854395925015435338106011648 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) phi1)))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)))) |
(if (<=.f64 phi1 #s(literal -9000000000000000258108064026646110331815789823868258849128448 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)))) |
(if (<=.f64 phi1 #s(literal -72000000000000002064864512213168882654526318590946070793027584 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)))) |
(if (<=.f64 phi1 #s(literal -5500000000000000078441167310397074032871539922947539497648128 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi2)))) |
(if (<=.f64 phi1 #s(literal -13600000000000000 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) (if (<=.f64 phi1 #s(literal 61718895773929/685765508599211085406992031398401158759299079491541508764000248557024672719959118395646962442045349201660590667234013968119772982843080987903012964780708787451812337588750783066948774723991753080189067657794974398949244241113521123786594812548932026532556574571938698730267509225767960757581162756440064 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)))) |
(if (<=.f64 phi1 #s(literal -13600000000000000 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi1) (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R))) (if (<=.f64 phi1 #s(literal 61718895773929/685765508599211085406992031398401158759299079491541508764000248557024672719959118395646962442045349201660590667234013968119772982843080987903012964780708787451812337588750783066948774723991753080189067657794974398949244241113521123786594812548932026532556574571938698730267509225767960757581162756440064 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)))) |
(if (<=.f64 phi1 #s(literal -42000000000000002293064780032994134490471161084325118892031004300764456439898361072057805003929930293345938706036923389968384 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (if (<=.f64 phi1 #s(literal -13600000000000000 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2)) (if (<=.f64 phi1 #s(literal 61718895773929/685765508599211085406992031398401158759299079491541508764000248557024672719959118395646962442045349201660590667234013968119772982843080987903012964780708787451812337588750783066948774723991753080189067657794974398949244241113521123786594812548932026532556574571938698730267509225767960757581162756440064 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2))))) |
(if (<=.f64 phi1 #s(literal -449999999999999990571761329249584877087885744056395726988802038791111555935960497945313280 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (if (<=.f64 phi1 #s(literal -13600000000000000 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) phi2)) (if (<=.f64 phi1 #s(literal 61718895773929/685765508599211085406992031398401158759299079491541508764000248557024672719959118395646962442045349201660590667234013968119772982843080987903012964780708787451812337588750783066948774723991753080189067657794974398949244241113521123786594812548932026532556574571938698730267509225767960757581162756440064 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2))))) |
(if (<=.f64 phi1 #s(literal -9000000000000000258108064026646110331815789823868258849128448 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (if (<=.f64 phi1 #s(literal -14500000000000000 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (if (<=.f64 phi1 #s(literal 61718895773929/685765508599211085406992031398401158759299079491541508764000248557024672719959118395646962442045349201660590667234013968119772982843080987903012964780708787451812337588750783066948774723991753080189067657794974398949244241113521123786594812548932026532556574571938698730267509225767960757581162756440064 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2))))) |
(if (<=.f64 phi2 #s(literal 4187068186722485/332306998946228968225951765070086144 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
| Outputs |
|---|
(if (<=.f64 phi1 #s(literal -4999999999999999746935676485370094334818225055067050365419520 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)))) |
(if (<=.f64 phi1 #s(literal -4999999999999999746935676485370094334818225055067050365419520 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)) phi1)) R) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) R)) |
(if (<=.f64 phi1 #s(literal -98000000000000005030673108054973016370438997225780141841448960 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)) phi1))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)))) |
(if (<=.f64 phi1 #s(literal -98000000000000005030673108054973016370438997225780141841448960 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1)) phi1)) R) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)) R)) |
(if (<=.f64 phi1 #s(literal -98000000000000005030673108054973016370438997225780141841448960 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1)) phi1))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)))) |
(if (<=.f64 phi1 #s(literal -98000000000000005030673108054973016370438997225780141841448960 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1)) phi1)) R) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) R)) |
(if (<=.f64 phi1 #s(literal -6399999999999999818802435171869708854395925015435338106011648 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (hypot.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda2) phi1)))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)))) |
(if (<=.f64 phi1 #s(literal -6399999999999999818802435171869708854395925015435338106011648 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (* phi1 1/2))) (* (- lambda1 lambda2) (cos (* phi1 1/2)))) (* phi1 phi1))) (hypot.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) phi1))) R) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) R)) |
(if (<=.f64 phi1 #s(literal -9000000000000000258108064026646110331815789823868258849128448 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)))) |
(if (<=.f64 phi1 #s(literal -9000000000000000258108064026646110331815789823868258849128448 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* phi1 1/2))) (-.f64 lambda1 lambda2)) phi1)) R) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) R)) |
(if (<=.f64 phi1 #s(literal -72000000000000002064864512213168882654526318590946070793027584 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)))) |
(if (<=.f64 phi1 #s(literal -72000000000000002064864512213168882654526318590946070793027584 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)) phi1)) R) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)) R)) |
(if (<=.f64 phi1 #s(literal -5500000000000000078441167310397074032871539922947539497648128 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi2)))) |
(if (<=.f64 phi1 #s(literal -5500000000000000078441167310397074032871539922947539497648128 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)) phi1)) R) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 #s(approx (* (cos (* phi2 1/2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) phi2)) R)) |
(if (<=.f64 phi1 #s(literal -13600000000000000 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))) (if (<=.f64 phi1 #s(literal 61718895773929/685765508599211085406992031398401158759299079491541508764000248557024672719959118395646962442045349201660590667234013968119772982843080987903012964780708787451812337588750783066948774723991753080189067657794974398949244241113521123786594812548932026532556574571938698730267509225767960757581162756440064 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)))) |
(if (<=.f64 phi1 #s(literal -13600000000000000 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)) phi1)) R) (if (<=.f64 phi1 #s(literal 61718895773929/685765508599211085406992031398401158759299079491541508764000248557024672719959118395646962442045349201660590667234013968119772982843080987903012964780708787451812337588750783066948774723991753080189067657794974398949244241113521123786594812548932026532556574571938698730267509225767960757581162756440064 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1)))) R) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)))) |
(if (<=.f64 phi1 #s(literal -13600000000000000 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi1) (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R))) (if (<=.f64 phi1 #s(literal 61718895773929/685765508599211085406992031398401158759299079491541508764000248557024672719959118395646962442045349201660590667234013968119772982843080987903012964780708787451812337588750783066948774723991753080189067657794974398949244241113521123786594812548932026532556574571938698730267509225767960757581162756440064 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)))) |
(if (<=.f64 phi1 #s(literal -13600000000000000 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (fma.f64 R (/.f64 (neg.f64 phi2) phi1) R) (neg.f64 phi1))) (if (<=.f64 phi1 #s(literal 61718895773929/685765508599211085406992031398401158759299079491541508764000248557024672719959118395646962442045349201660590667234013968119772982843080987903012964780708787451812337588750783066948774723991753080189067657794974398949244241113521123786594812548932026532556574571938698730267509225767960757581162756440064 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1)))) R) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)))) |
(if (<=.f64 phi1 #s(literal -42000000000000002293064780032994134490471161084325118892031004300764456439898361072057805003929930293345938706036923389968384 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (if (<=.f64 phi1 #s(literal -13600000000000000 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 phi1 R) phi2)) phi2)) (if (<=.f64 phi1 #s(literal 61718895773929/685765508599211085406992031398401158759299079491541508764000248557024672719959118395646962442045349201660590667234013968119772982843080987903012964780708787451812337588750783066948774723991753080189067657794974398949244241113521123786594812548932026532556574571938698730267509225767960757581162756440064 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2))))) |
(if (<=.f64 phi1 #s(literal -42000000000000002293064780032994134490471161084325118892031004300764456439898361072057805003929930293345938706036923389968384 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) R) (if (<=.f64 phi1 #s(literal -13600000000000000 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 R phi1) phi2)) phi2)) (if (<=.f64 phi1 #s(literal 61718895773929/685765508599211085406992031398401158759299079491541508764000248557024672719959118395646962442045349201660590667234013968119772982843080987903012964780708787451812337588750783066948774723991753080189067657794974398949244241113521123786594812548932026532556574571938698730267509225767960757581162756440064 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1)))) R) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))))) |
(if (<=.f64 phi1 #s(literal -449999999999999990571761329249584877087885744056395726988802038791111555935960497945313280 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (if (<=.f64 phi1 #s(literal -13600000000000000 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) phi2)) (if (<=.f64 phi1 #s(literal 61718895773929/685765508599211085406992031398401158759299079491541508764000248557024672719959118395646962442045349201660590667234013968119772982843080987903012964780708787451812337588750783066948774723991753080189067657794974398949244241113521123786594812548932026532556574571938698730267509225767960757581162756440064 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2))))) |
(if (<=.f64 phi1 #s(literal -449999999999999990571761329249584877087885744056395726988802038791111555935960497945313280 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) R) (if (<=.f64 phi1 #s(literal -13600000000000000 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (*.f64 (/.f64 phi1 phi2) R)) phi2)) (if (<=.f64 phi1 #s(literal 61718895773929/685765508599211085406992031398401158759299079491541508764000248557024672719959118395646962442045349201660590667234013968119772982843080987903012964780708787451812337588750783066948774723991753080189067657794974398949244241113521123786594812548932026532556574571938698730267509225767960757581162756440064 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1)))) R) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))))) |
(if (<=.f64 phi1 #s(literal -9000000000000000258108064026646110331815789823868258849128448 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (if (<=.f64 phi1 #s(literal -14500000000000000 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) (if (<=.f64 phi1 #s(literal 61718895773929/685765508599211085406992031398401158759299079491541508764000248557024672719959118395646962442045349201660590667234013968119772982843080987903012964780708787451812337588750783066948774723991753080189067657794974398949244241113521123786594812548932026532556574571938698730267509225767960757581162756440064 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2))))) |
(if (<=.f64 phi1 #s(literal -9000000000000000258108064026646110331815789823868258849128448 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) R) (if (or (<=.f64 phi1 #s(literal -14500000000000000 binary64)) (not (<=.f64 phi1 #s(literal 61718895773929/685765508599211085406992031398401158759299079491541508764000248557024672719959118395646962442045349201660590667234013968119772982843080987903012964780708787451812337588750783066948774723991753080189067657794974398949244241113521123786594812548932026532556574571938698730267509225767960757581162756440064 binary64)))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1)))) R))) |
(if (<=.f64 phi2 #s(literal 4187068186722485/332306998946228968225951765070086144 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1))))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2))) |
(if (<=.f64 phi2 #s(literal 4187068186722485/332306998946228968225951765070086144 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (neg lambda1) (cos (* (+ phi2 phi1) 1/2))) #s(approx (+ (* (* 1/2 lambda1) (* (sin (* phi1 1/2)) phi2)) (* (neg lambda1) (cos (* phi1 1/2)))) (neg.f64 lambda1)))) R) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 1360 | 31798 |
| 1 | 4553 | 29698 |
| 0 | 8207 | 27401 |
| 0 | 1189 | 30897 |
| 1 | 3975 | 29012 |
| 0 | 8225 | 26857 |
| 0 | 884 | 10001 |
| 1 | 2974 | 9253 |
| 2 | 7953 | 9253 |
| 0 | 8120 | 8635 |
| 0 | 1414 | 33491 |
| 1 | 4790 | 32791 |
| 0 | 9073 | 30455 |
| 1× | fuel |
| 1× | iter limit |
| 1× | node limit |
| 1× | iter limit |
| 1× | node limit |
| 1× | iter limit |
| 1× | node limit |
| 1× | iter limit |
| 1× | node limit |
Compiled 673 to 579 computations (14% saved)
(sort lambda1 lambda2)
(negabs R)
Compiled 1 264 to 620 computations (50.9% saved)
Loading profile data...