Equirectangular approximation to distance on a great circle
Time bar (total: 8.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)
| 666.0ms | 6 482× | 0 | valid |
| 440.0ms | 1 774× | 1 | valid |
ival-hypot: 204.0ms (25.2% of total)ival-mult: 141.0ms (17.4% of total)ival-cos: 121.0ms (14.9% of total)adjust: 106.0ms (13.1% of total)ival-sub: 99.0ms (12.2% of total)ival-div: 75.0ms (9.3% of total)ival-add: 56.0ms (6.9% of total)exact: 6.0ms (0.7% of total)ival-assert: 3.0ms (0.4% of total)| Ground Truth | Overpredictions | Example | Underpredictions | Example | Subexpression |
|---|---|---|---|---|---|
| 181 | 0 | - | 0 | - | (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)))) |
| 70 | 119 | (-3.331273708518318e+151 4.7788503464223725e+194 -3.673204258677518e+219 -5.869911811124141e+287 2.6764171477201146e-216) | 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 | 189 | 1 |
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 | 181 | 0 |
| ↳ | (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) | overflow | 110 | |
| ↳ | (*.f64 (*.f64 (-.f64 lambda1 lambda2) (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 | 123 | |
| ↳ | (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(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 | 181 |
| Predicted + | Predicted - | |
|---|---|---|
| + | 114 | 0 |
| - | 108 | 34 |
| Predicted + | Predicted Maybe | Predicted - | |
|---|---|---|---|
| + | 114 | 0 | 0 |
| - | 108 | 1 | 33 |
| number | freq |
|---|---|
| 0 | 34 |
| 1 | 74 |
| 2 | 148 |
| Predicted + | Predicted Maybe | Predicted - | |
|---|---|---|---|
| + | 1 | 0 | 0 |
| - | 0 | 0 | 0 |
| 140.0ms | 366× | 1 | valid |
| 24.0ms | 146× | 0 | valid |
Compiled 346 to 55 computations (84.1% saved)
ival-cos: 31.0ms (25.1% of total)ival-mult: 29.0ms (23.5% of total)adjust: 22.0ms (17.8% of total)ival-hypot: 15.0ms (12.2% of total)ival-sub: 10.0ms (8.1% of total)ival-add: 9.0ms (7.3% of total)ival-div: 7.0ms (5.7% of total)ival-true: 1.0ms (0.8% of total)ival-assert: 0.0ms (0% of total)exact: 0.0ms (0% of total)Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 150 | 701 |
| 1 | 503 | 701 |
| 2 | 1661 | 701 |
| 3 | 5246 | 701 |
| 0 | 17 | 32 |
| 0 | 28 | 32 |
| 1 | 60 | 32 |
| 2 | 163 | 32 |
| 3 | 463 | 32 |
| 4 | 1268 | 32 |
| 5 | 3278 | 32 |
| 0 | 8254 | 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 (sin.f64 (+.f64 (fma.f64 (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal -1 binary64)) #s(literal -1 binary64) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal -2 binary64) (*.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) #s(literal -1 binary64)))) (PI.f64))) (-.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 |
|---|---|---|
| ▶ | 57.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)
| 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 |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx R #s(hole binary64 R)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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)))))) (* 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))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole 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))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole 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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole 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))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2))) |
#s(approx lambda1 #s(hole binary64 lambda1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (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))))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (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)))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1)) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -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))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (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))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole 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))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole 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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole 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))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2)))) |
#s(approx lambda2 #s(hole binary64 lambda2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (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))))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (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)))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -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))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (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))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* 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))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* 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))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* 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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole 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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole 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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole 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))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* 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))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 phi2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole 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)))))))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 phi2)))) |
#s(approx (+ phi1 phi2) #s(hole binary64 phi2)) |
#s(approx (+ phi1 phi2) #s(hole binary64 (+ phi1 phi2))) |
#s(approx phi1 #s(hole binary64 phi1)) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (pow phi2 2))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (+ (* -2 (* phi1 phi2)) (pow phi2 2)))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (+ (* phi1 (+ phi1 (* -2 phi2))) (pow phi2 2)))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 phi2))) |
#s(approx (- phi1 phi2) #s(hole binary64 (- phi1 phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 phi1)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (pow phi1 2))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (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)))))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 (+ phi1 phi2))))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 phi1)) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (/ phi2 phi1))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (pow phi1 2))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (/ (pow phi2 2) (pow phi1 2))))))) |
#s(approx (- phi1 phi2) #s(hole binary64 phi1)) |
#s(approx (- phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 phi1))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -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))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (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)))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow phi2 2) phi1)) (* 2 phi2)) phi1)))))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (/ phi2 phi1) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* 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))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* 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))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* 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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole 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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole 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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole 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))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole 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))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole 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))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 phi1)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole 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)))))))) |
#s(approx phi2 #s(hole binary64 phi2)) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (+ (* -2 (* phi1 phi2)) (pow phi1 2)))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (+ (* phi2 (+ phi2 (* -2 phi1))) (pow phi1 2)))) |
#s(approx (- phi1 phi2) #s(hole binary64 (+ phi1 (* -1 phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 phi2)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (pow phi2 2))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (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)))))))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi2 (+ 1 (/ phi1 phi2))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (/ (pow phi1 2) (pow phi2 2))))))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* phi2 (- (/ phi1 phi2) 1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 phi2))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -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))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (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)))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow phi1 2) phi2)) (* 2 phi1)) phi2)))))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
15 calls:
| Time | Variable | Point | Expression | |
|---|---|---|---|---|
| 18.0ms | lambda1 | @ | -inf | ((* R (sqrt (+ (* (* (- 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)))) (* (- phi1 phi2) (- phi1 phi2))) (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (- lambda1 lambda2) lambda1 lambda2 (cos (/ (+ phi1 phi2) 2)) (/ (+ phi1 phi2) 2) (+ phi1 phi2) phi1 phi2 2 (* (- phi1 phi2) (- phi1 phi2)) (- phi1 phi2)) |
| 7.0ms | phi1 | @ | inf | ((* R (sqrt (+ (* (* (- 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)))) (* (- phi1 phi2) (- phi1 phi2))) (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (- lambda1 lambda2) lambda1 lambda2 (cos (/ (+ phi1 phi2) 2)) (/ (+ phi1 phi2) 2) (+ phi1 phi2) phi1 phi2 2 (* (- phi1 phi2) (- phi1 phi2)) (- phi1 phi2)) |
| 5.0ms | phi1 | @ | 0 | ((* R (sqrt (+ (* (* (- 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)))) (* (- phi1 phi2) (- phi1 phi2))) (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (- lambda1 lambda2) lambda1 lambda2 (cos (/ (+ phi1 phi2) 2)) (/ (+ phi1 phi2) 2) (+ phi1 phi2) phi1 phi2 2 (* (- phi1 phi2) (- phi1 phi2)) (- phi1 phi2)) |
| 5.0ms | phi2 | @ | 0 | ((* R (sqrt (+ (* (* (- 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)))) (* (- phi1 phi2) (- phi1 phi2))) (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (- lambda1 lambda2) lambda1 lambda2 (cos (/ (+ phi1 phi2) 2)) (/ (+ phi1 phi2) 2) (+ phi1 phi2) phi1 phi2 2 (* (- phi1 phi2) (- phi1 phi2)) (- phi1 phi2)) |
| 4.0ms | phi1 | @ | -inf | ((* R (sqrt (+ (* (* (- 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)))) (* (- phi1 phi2) (- phi1 phi2))) (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (- lambda1 lambda2) lambda1 lambda2 (cos (/ (+ phi1 phi2) 2)) (/ (+ phi1 phi2) 2) (+ phi1 phi2) phi1 phi2 2 (* (- phi1 phi2) (- phi1 phi2)) (- phi1 phi2)) |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 1206 | 13898 |
| 0 | 1223 | 11500 |
| 1 | 7326 | 11500 |
| 0 | 9089 | 10674 |
| 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) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx R #s(hole binary64 R)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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)))))) (* 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))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole 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))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole 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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole 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))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2))) |
#s(approx lambda1 #s(hole binary64 lambda1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (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))))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (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)))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1)) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -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))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (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))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole 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))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole 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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole 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))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2)))) |
#s(approx lambda2 #s(hole binary64 lambda2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (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))))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (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)))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -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))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (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))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* 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))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* 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))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* 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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole 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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole 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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole 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))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* 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))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 phi2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole 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)))))))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 phi2)))) |
#s(approx (+ phi1 phi2) #s(hole binary64 phi2)) |
#s(approx (+ phi1 phi2) #s(hole binary64 (+ phi1 phi2))) |
#s(approx phi1 #s(hole binary64 phi1)) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (pow phi2 2))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (+ (* -2 (* phi1 phi2)) (pow phi2 2)))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (+ (* phi1 (+ phi1 (* -2 phi2))) (pow phi2 2)))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 phi2))) |
#s(approx (- phi1 phi2) #s(hole binary64 (- phi1 phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 phi1)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (pow phi1 2))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (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)))))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 (+ phi1 phi2))))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 phi1)) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (/ phi2 phi1))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (pow phi1 2))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (/ (pow phi2 2) (pow phi1 2))))))) |
#s(approx (- phi1 phi2) #s(hole binary64 phi1)) |
#s(approx (- phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 phi1))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -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))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (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)))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow phi2 2) phi1)) (* 2 phi2)) phi1)))))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (/ phi2 phi1) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* 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))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* 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))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* 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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole 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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole 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))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole 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))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole 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))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole 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))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 phi1)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole 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)))))))) |
#s(approx phi2 #s(hole binary64 phi2)) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (+ (* -2 (* phi1 phi2)) (pow phi1 2)))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (+ (* phi2 (+ phi2 (* -2 phi1))) (pow phi1 2)))) |
#s(approx (- phi1 phi2) #s(hole binary64 (+ phi1 (* -1 phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 phi2)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (pow phi2 2))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (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)))))))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi2 (+ 1 (/ phi1 phi2))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (/ (pow phi1 2) (pow phi2 2))))))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* phi2 (- (/ phi1 phi2) 1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 phi2))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -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))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (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)))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow phi1 2) phi2)) (* 2 phi1)) phi2)))))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
| Outputs |
|---|
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(*.f64 R (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
R |
(pow.f64 (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)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(sqrt.f64 (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)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(hypot.f64 (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) |
(hypot.f64 (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (neg.f64 (-.f64 phi1 phi2))) |
(hypot.f64 (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (fabs.f64 (-.f64 phi1 phi2))) |
(hypot.f64 (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(hypot.f64 (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) |
(hypot.f64 (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (neg.f64 (-.f64 phi1 phi2))) |
(hypot.f64 (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (fabs.f64 (-.f64 phi1 phi2))) |
(hypot.f64 (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (-.f64 phi1 phi2)) |
(hypot.f64 (-.f64 phi1 phi2) (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (-.f64 phi1 phi2) (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(hypot.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) |
(hypot.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (neg.f64 (-.f64 phi1 phi2))) |
(hypot.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (fabs.f64 (-.f64 phi1 phi2))) |
(hypot.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 phi1 phi2)) |
(exp.f64 (*.f64 (log.f64 (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)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) |
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) (-.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) |
(fma.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) |
(fma.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) |
(fma.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) |
(fma.f64 (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) |
(fma.f64 (fabs.f64 (-.f64 phi1 phi2)) (fabs.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) |
(fma.f64 (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) |
(fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) |
(fma.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2) (*.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) |
(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)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) |
(fma.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) |
(-.f64 (*.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 (neg.f64 (-.f64 phi1 phi2)) (-.f64 phi1 phi2))) |
(+.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) |
(+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) |
(*.f64 (*.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) |
(*.f64 (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(*.f64 (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) |
(*.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 lambda1 lambda2) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(pow.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) |
(exp.f64 (*.f64 (log.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) |
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) |
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)) |
(/.f64 (-.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (*.f64 (*.f64 lambda2 lambda2) lambda2)) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2)))) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
(fma.f64 (sin.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(sin.f64 (+.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(-.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) |
(cos.f64 (neg.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) |
(cos.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) |
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) |
(+.f64 (*.f64 (sin.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(/.f64 (neg.f64 (+.f64 phi2 phi1)) #s(literal -2 binary64)) |
(/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) |
(+.f64 (/.f64 phi1 #s(literal 2 binary64)) (/.f64 phi2 #s(literal 2 binary64))) |
(/.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (-.f64 phi1 phi2)) |
(/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2)) (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (-.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi1)))) |
(+.f64 phi2 phi1) |
(+.f64 phi1 phi2) |
phi1 |
phi2 |
#s(literal 2 binary64) |
(*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) |
(*.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (-.f64 phi1 phi2))) |
(*.f64 (fabs.f64 (-.f64 phi1 phi2)) (fabs.f64 (-.f64 phi1 phi2))) |
(*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) |
(exp.f64 (*.f64 (log.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64))) |
(+.f64 (cosh.f64 (*.f64 (log.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64)))) |
(/.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (+.f64 phi2 phi1)) |
(/.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) phi1) (*.f64 (*.f64 phi2 phi2) phi2)) (fma.f64 phi1 phi1 (fma.f64 phi2 phi2 (*.f64 phi2 phi1)))) |
(-.f64 phi1 phi2) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (pow.f64 (fma.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (-.f64 phi1 phi2)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) R)) |
#s(approx R R) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) R)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 R lambda1) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) R))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 (fma.f64 (*.f64 (*.f64 (*.f64 R lambda1) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 R lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) lambda1 (*.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) R))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)) (*.f64 (*.f64 R lambda1) (*.f64 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) R) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))) lambda1 (*.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 R lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) lambda1 (*.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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)))) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda1) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) lambda1 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (*.f64 (*.f64 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)))))) lambda1 (*.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) lambda1 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (*.f64 #s(literal -2 binary64) lambda1) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (fma.f64 (*.f64 #s(literal -2 binary64) lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)) lambda1 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 (*.f64 #s(literal -2 binary64) lambda1) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (*.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -2 binary64) lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)) lambda1 (*.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (fma.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) lambda1))) |
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2)) |
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2)) |
#s(approx lambda1 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) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (fma.f64 (*.f64 R (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1))) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)) lambda1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (fma.f64 (*.f64 R (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1))) #s(literal -1 binary64) (fma.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R))) lambda1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (fma.f64 (*.f64 R (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1))) #s(literal -1 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) R) (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) lambda1)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) lambda1)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda2 (*.f64 (*.f64 lambda1 lambda1) lambda1)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (*.f64 lambda1 lambda1) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (fma.f64 (*.f64 lambda2 (/.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)) #s(literal -2 binary64) (fma.f64 (*.f64 lambda2 lambda2) (/.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 lambda1 lambda1)) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))) (*.f64 lambda1 lambda1))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (*.f64 lambda1 lambda1) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (fma.f64 (*.f64 lambda2 (/.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)) #s(literal -2 binary64) (fma.f64 (*.f64 lambda2 lambda2) (/.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 lambda1 lambda1)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (*.f64 lambda1 lambda1))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) lambda1)) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)) |
#s(approx (- lambda1 lambda2) lambda1) |
#s(approx (- lambda1 lambda2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1 binary64) #s(literal 1 binary64)) lambda1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #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 #s(literal -1 binary64) lambda1) (fma.f64 (*.f64 R (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1))) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 R lambda1) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) #s(literal -1 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) 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) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#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) lambda1) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#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) lambda1) (fma.f64 (/.f64 (fma.f64 (/.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) lambda2)) lambda1) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#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) lambda1) (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda2 lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) lambda2)) lambda1) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 2 binary64) lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda1 lambda1))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (fma.f64 (/.f64 (fma.f64 (*.f64 (*.f64 lambda2 lambda2) (/.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)) #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 2 binary64) lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda1 lambda1))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1))))) |
#s(approx (- lambda1 lambda2) (*.f64 (*.f64 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) lambda1) #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 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) R)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 R lambda1) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) R))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 (fma.f64 (*.f64 (*.f64 (*.f64 R lambda2) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 R lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) lambda2 (*.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) R))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)) (*.f64 (*.f64 R lambda1) (*.f64 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) R) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))) lambda2 (*.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 R lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) lambda2 (*.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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)))) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) lambda2) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) lambda2 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (*.f64 (*.f64 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 lambda1) (/.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)))))) lambda2 (*.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) lambda2 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (*.f64 #s(literal -2 binary64) lambda1) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (fma.f64 (*.f64 #s(literal -2 binary64) lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)) lambda2 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 (*.f64 #s(literal -2 binary64) lambda1) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -2 binary64) lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)) lambda2 (*.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (- lambda1 lambda2) (fma.f64 #s(literal -1 binary64) lambda2 lambda1)) |
#s(approx lambda2 lambda2) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)) lambda2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) #s(literal -1 binary64) (fma.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (*.f64 (*.f64 lambda2 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R))) lambda2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) #s(literal -1 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda1) R) (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (*.f64 (*.f64 lambda2 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) lambda2)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) lambda2)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1 binary64) lambda2)) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda1 (*.f64 (*.f64 lambda2 lambda2) lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (*.f64 lambda2 lambda2) (*.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (fma.f64 (*.f64 lambda1 (/.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)) #s(literal -2 binary64) (fma.f64 (*.f64 lambda1 lambda1) (/.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 lambda2 lambda2)) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 lambda2))))) (*.f64 lambda2 lambda2))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -2 binary64) lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (*.f64 lambda2 lambda2) (*.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (fma.f64 (*.f64 lambda1 (/.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)) #s(literal -2 binary64) (fma.f64 (*.f64 lambda1 lambda1) (/.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 lambda2 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (*.f64 lambda2 lambda2))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1 binary64) lambda2))) lambda2)) |
#s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #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 #s(literal -1 binary64) lambda2) (fma.f64 (/.f64 (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 R lambda2) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) #s(literal -1 binary64) (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) 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) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#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) lambda2) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1 binary64) lambda2)) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#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) lambda2) (fma.f64 (/.f64 (fma.f64 (/.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) lambda1)) lambda2) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#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) lambda2) (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 lambda1 lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) lambda1)) lambda2) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) lambda2) #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda2 lambda2))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (fma.f64 (/.f64 (fma.f64 (*.f64 (*.f64 lambda1 lambda1) (/.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)) #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda2 lambda2))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1 binary64) lambda2)) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (- lambda1 lambda2) (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -1 binary64) #s(literal 1 binary64)) lambda2) #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 (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) R)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 R) (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)))) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) R))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi1 R) (-.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2))) (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) R) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))) phi1 (*.f64 (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) R))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 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 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2))) (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2))) (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) R) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) R)) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) phi1 (*.f64 (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #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)))) (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (*.f64 (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) phi1)) #s(literal 1/2 binary64) (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 (*.f64 (-.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2))) (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) phi1) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2))) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) phi1 (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 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 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2))) (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) phi1)) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (-.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2))) (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(literal 1/4 binary64))))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2))) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) phi1 (pow.f64 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi2)) phi1 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) phi1 (*.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) phi1 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 (+.f64 (fma.f64 (*.f64 phi1 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 1/6 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64)) phi1 (*.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) phi1 (fma.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 (*.f64 #s(literal -1 binary64) phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 (fma.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) phi1 (*.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 phi1 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 1/6 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) phi1 (*.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) phi1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (-.f64 lambda1 lambda2) (*.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (*.f64 #s(literal -1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) phi1)) phi1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (fma.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) phi1 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (/ (+ phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi2)) |
#s(approx (/ (+ phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) |
#s(approx (+ phi1 phi2) phi2) |
#s(approx (+ phi1 phi2) (+.f64 phi2 phi1)) |
#s(approx phi1 phi1) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) (*.f64 phi2 phi2)) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) (*.f64 (fma.f64 #s(literal -2 binary64) phi1 phi2) phi2)) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) (fma.f64 (fma.f64 #s(literal -2 binary64) phi2 phi1) phi1 (*.f64 phi2 phi2))) |
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) phi2)) |
#s(approx (- 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 phi1 R)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (fma.f64 (/.f64 (*.f64 phi2 R) phi1) #s(literal -1 binary64) R) phi1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 R) phi1) #s(literal -1 binary64))) R) phi1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (*.f64 phi2 (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 phi1 phi1) phi1))) (*.f64 R (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (*.f64 (/.f64 (*.f64 phi2 R) phi1) #s(literal -1 binary64))) R) phi1)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) phi1) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1 binary64) #s(literal 1 binary64)) phi1)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (+.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64) (*.f64 (/.f64 phi2 phi1) #s(literal -1 binary64))) #s(literal 1 binary64)) phi1)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (+.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1 binary64) #s(literal 1 binary64)) (fma.f64 (*.f64 phi2 (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 phi1 phi1) phi1))) #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64)))) phi1)) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.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 phi2 phi1) #s(literal -2 binary64) #s(literal 1 binary64)) (*.f64 phi1 phi1))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (+.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -2 binary64) #s(literal 1 binary64)) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))) (*.f64 phi1 phi1))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (/ (+ phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)) |
#s(approx (/ (+ phi1 phi2) 2) (*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) phi1)) |
#s(approx (+ phi1 phi2) phi1) |
#s(approx (+ phi1 phi2) (*.f64 (+.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)) phi1)) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) (*.f64 phi1 phi1)) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) (*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -2 binary64) #s(literal 1 binary64)) (*.f64 phi1 phi1))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) (*.f64 (+.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -2 binary64) #s(literal 1 binary64)) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) (*.f64 phi1 phi1))) |
#s(approx (- phi1 phi2) phi1) |
#s(approx (- phi1 phi2) (*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1 binary64) #s(literal 1 binary64)) phi1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 phi1 R) #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 (fma.f64 (/.f64 (*.f64 phi2 R) phi1) #s(literal -1 binary64) R) phi1) #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 #s(literal -1 binary64) phi1) (fma.f64 (/.f64 (fma.f64 (*.f64 R (*.f64 (*.f64 (sin.f64 (fma.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))) #s(literal -1/2 binary64) (*.f64 phi2 R)) phi1) #s(literal -1 binary64) R))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) phi1) (fma.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 (*.f64 R (*.f64 phi2 (*.f64 (*.f64 (sin.f64 (fma.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (*.f64 (sin.f64 (fma.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) phi1) #s(literal -1 binary64) (*.f64 phi2 R)) phi1) #s(literal -1 binary64) R))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) phi1)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1 binary64) #s(literal 1 binary64)) phi1) #s(literal -1 binary64))) |
#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) phi1) (fma.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (fma.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1)) #s(literal -1/2 binary64) phi2) phi1) #s(literal -1 binary64) #s(literal 1 binary64)))) |
#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) phi1) (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (sin.f64 (fma.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 (*.f64 (sin.f64 (fma.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1))))) phi1) #s(literal -1 binary64) phi2) phi1) #s(literal -1 binary64) #s(literal 1 binary64)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (fma.f64 (/.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi1) (/.f64 (*.f64 phi2 phi2) phi1)) #s(literal -1 binary64) (*.f64 #s(literal 2 binary64) phi2)) phi1) #s(literal -1 binary64) #s(literal 1 binary64)) (*.f64 phi1 phi1))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (*.f64 (sin.f64 (fma.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 (sin.f64 (fma.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (sin.f64 (fma.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (/ (+ phi1 phi2) 2) (*.f64 (*.f64 (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) phi1) #s(literal -1 binary64))) |
#s(approx (+ phi1 phi2) (*.f64 (*.f64 (-.f64 (*.f64 (/.f64 phi2 phi1) #s(literal -1 binary64)) #s(literal 1 binary64)) phi1) #s(literal -1 binary64))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) (*.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 phi2 phi2) phi1) #s(literal -1 binary64) (*.f64 #s(literal 2 binary64) phi2)) phi1) #s(literal -1 binary64) #s(literal 1 binary64)) (*.f64 phi1 phi1))) |
#s(approx (- phi1 phi2) (*.f64 (*.f64 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)) phi1) #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 (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) R)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 R) (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)))) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) R))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi2 R) (-.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/4 binary64) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1))) (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) R) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))) phi2 (*.f64 (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) R))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 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 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/4 binary64) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1))) (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/4 binary64) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1))) (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) R) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) R)) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) phi2 (*.f64 (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #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)))) (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (*.f64 (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) phi2)) #s(literal 1/2 binary64) (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 (*.f64 (-.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/4 binary64) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1))) (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) phi2) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1))) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) phi2 (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 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 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/4 binary64) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1))) (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) phi2)) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (-.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/4 binary64) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1))) (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(literal 1/4 binary64))))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1))) (pow.f64 (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) phi2 (pow.f64 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) phi1)) phi2 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/4 binary64) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64)) phi2 (*.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) phi2 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 (+.f64 (fma.f64 (*.f64 phi2 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 1/6 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/4 binary64) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64)) phi2 (*.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) phi2 (fma.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 (*.f64 #s(literal -1 binary64) phi2) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 (fma.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/4 binary64) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) phi2 (*.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 phi2 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 1/6 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/4 binary64) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/4 binary64))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) phi2 (*.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) phi2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2) (*.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal -1/8 binary64))) phi2)) phi2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (fma.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1/2 binary64))) phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal -1/8 binary64))) phi2 (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx phi2 phi2) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) (fma.f64 (*.f64 #s(literal -2 binary64) phi1) phi2 (*.f64 phi1 phi1))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) (fma.f64 (fma.f64 #s(literal -2 binary64) phi1 phi2) phi2 (*.f64 phi1 phi1))) |
#s(approx (- phi1 phi2) (fma.f64 #s(literal -1 binary64) phi2 phi1)) |
#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 (fma.f64 (/.f64 (*.f64 phi1 R) phi2) #s(literal -1 binary64) R) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (+.f64 (fma.f64 (*.f64 R (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 R) phi2) #s(literal -1 binary64))) R) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (*.f64 phi1 (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 phi2 phi2) phi2))) (*.f64 R (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (*.f64 (/.f64 (*.f64 phi1 R) phi2) #s(literal -1 binary64))) R) phi2)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) phi2) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal -1 binary64) #s(literal 1 binary64)) phi2)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (+.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64) (*.f64 (/.f64 phi1 phi2) #s(literal -1 binary64))) #s(literal 1 binary64)) phi2)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (+.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal -1 binary64) #s(literal 1 binary64)) (fma.f64 (*.f64 phi1 (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 phi2 phi2) phi2))) #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64)))) phi2)) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal -2 binary64) #s(literal 1 binary64)) (*.f64 phi2 phi2))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (+.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal -2 binary64) #s(literal 1 binary64)) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)))) (*.f64 phi2 phi2))) |
#s(approx (/ (+ phi1 phi2) 2) (*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) phi2)) |
#s(approx (+ phi1 phi2) (*.f64 (+.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2)) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) (*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal -2 binary64) #s(literal 1 binary64)) (*.f64 phi2 phi2))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) (*.f64 (+.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal -2 binary64) #s(literal 1 binary64)) (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))) (*.f64 phi2 phi2))) |
#s(approx (- phi1 phi2) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 phi2 R) #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 (fma.f64 (/.f64 (*.f64 phi1 R) phi2) #s(literal -1 binary64) R) phi2) #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 #s(literal -1 binary64) phi2) (fma.f64 (/.f64 (fma.f64 (*.f64 R (*.f64 (*.f64 (sin.f64 (fma.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))) #s(literal -1/2 binary64) (*.f64 phi1 R)) phi2) #s(literal -1 binary64) R))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) phi2) (fma.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 (*.f64 R (*.f64 phi1 (*.f64 (*.f64 (sin.f64 (fma.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) R) (*.f64 (*.f64 (sin.f64 (fma.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) phi2) #s(literal -1 binary64) (*.f64 phi1 R)) phi2) #s(literal -1 binary64) R))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) phi2)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal -1 binary64) #s(literal 1 binary64)) phi2) #s(literal -1 binary64))) |
#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) phi2) (fma.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (fma.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2)) #s(literal -1/2 binary64) phi1) phi2) #s(literal -1 binary64) #s(literal 1 binary64)))) |
#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) phi2) (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (sin.f64 (fma.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 (*.f64 (*.f64 (sin.f64 (fma.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2))))) phi2) #s(literal -1 binary64) phi1) phi2) #s(literal -1 binary64) #s(literal 1 binary64)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (fma.f64 (/.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) phi2) (/.f64 (*.f64 phi1 phi1) phi2)) #s(literal -1 binary64) (*.f64 #s(literal 2 binary64) phi1)) phi2) #s(literal -1 binary64) #s(literal 1 binary64)) (*.f64 phi2 phi2))) |
#s(approx (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (*.f64 (sin.f64 (fma.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 (sin.f64 (fma.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (sin.f64 (fma.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (/ (+ phi1 phi2) 2) (*.f64 (*.f64 (-.f64 (*.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) phi2) #s(literal -1 binary64))) |
#s(approx (+ phi1 phi2) (*.f64 (*.f64 (-.f64 (*.f64 (/.f64 phi1 phi2) #s(literal -1 binary64)) #s(literal 1 binary64)) phi2) #s(literal -1 binary64))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) (*.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 phi1 phi1) phi2) #s(literal -1 binary64) (*.f64 #s(literal 2 binary64) phi1)) phi2) #s(literal -1 binary64) #s(literal 1 binary64)) (*.f64 phi2 phi2))) |
#s(approx (- phi1 phi2) (*.f64 (*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal -1 binary64) #s(literal 1 binary64)) phi2) #s(literal -1 binary64))) |
Compiled 25 901 to 2 200 computations (91.5% saved)
8 alts after pruning (8 fresh and 0 done)
| Pruned | Kept | Total | |
|---|---|---|---|
| New | 405 | 8 | 413 |
| Fresh | 0 | 0 | 0 |
| Picked | 1 | 0 | 1 |
| Done | 0 | 0 | 0 |
| Total | 406 | 8 | 414 |
| Status | Accuracy | Program |
|---|---|---|
| ▶ | 96.0% | (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
| ▶ | 57.7% | (*.f64 R (sqrt.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
| 48.1% | (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) | |
| ▶ | 11.4% | (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))) |
| 32.6% | (*.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) lambda1) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) | |
| ▶ | 18.2% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
| 14.7% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (fma.f64 (/.f64 (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) | |
| ▶ | 34.0% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
Compiled 854 to 460 computations (46.1% saved)
| Inputs |
|---|
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) |
(-.f64 phi1 phi2) |
phi1 |
phi2 |
#s(literal 1 binary64) |
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) |
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) |
(/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) |
(+.f64 phi2 phi1) |
#s(literal 2 binary64) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
R |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R))) |
(*.f64 #s(literal -1 binary64) lambda1) |
#s(literal -1 binary64) |
(fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)) |
(/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) |
(fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) |
(*.f64 R lambda2) |
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) |
#s(literal 1/2 binary64) |
(/.f64 (PI.f64) #s(literal 2 binary64)) |
(PI.f64) |
(*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64)) |
(/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) |
(*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) |
#s(literal -1/2 binary64) |
(*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
(*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 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 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)) |
(*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1) |
(+.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) |
(/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
(*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(*.f64 lambda1 lambda1) |
(*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64)) |
(/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) |
(*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(*.f64 #s(literal -1 binary64) lambda2) |
(neg.f64 lambda1) |
(*.f64 R (sqrt.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
(sqrt.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
(fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) |
(pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) |
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) |
| Outputs |
|---|
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx R #s(hole binary64 R)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* R (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* R (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (* R (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* R (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R lambda2) #s(hole binary64 (* R lambda2))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (/ (* R (pow (- phi1 phi2) 2)) lambda1))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* R (pow (- phi1 phi2) 2)))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* R (* lambda1 (+ (* -1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (* -1 (/ (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* -1 (* R (+ (* -1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (* -1 (/ (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1 (/ (* R (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) lambda1)))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1 (* R (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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)))))) (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2))) |
#s(approx lambda1 #s(hole binary64 lambda1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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)))))) (* 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))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (+ (* -1 (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) lambda1))) |
#s(approx (* -1 lambda1) #s(hole binary64 (* -1 lambda1))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (/ (+ (* -1 (* R (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow lambda1 2)))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (/ (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (+ (* -1 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (pow lambda1 2)))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (pow lambda1 2)))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (/ (+ (* -1 (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (/ (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (+ (* -1 (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow lambda1 2)))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (pow lambda1 2)))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (/ (+ (* -1 (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow lambda1 2)))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* lambda1 lambda1) #s(hole binary64 (pow lambda1 2))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1))) |
#s(approx (neg lambda1) #s(hole binary64 (* -1 lambda1))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole 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))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole 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)))))) (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole 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))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole 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))))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (pow lambda2 2))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (+ (* -2 (* lambda1 lambda2)) (pow lambda2 2)))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (+ (* lambda1 (+ lambda1 (* -2 lambda2))) (pow lambda2 2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1)) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* lambda1 (+ (* -1 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* lambda1 (+ (* -1 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (/ (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (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))))))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (pow lambda1 2))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -2 (/ lambda2 lambda1)))))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (* (pow lambda1 2) (+ 1 (+ (* -2 (/ lambda2 lambda1)) (/ (pow lambda2 2) (pow lambda1 2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1 (/ (+ (* -1 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1)))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -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))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (* -1 (/ (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -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))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (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))))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow lambda2 2) lambda1)) (* 2 lambda2)) lambda1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2)))) |
#s(approx lambda2 #s(hole binary64 lambda2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* -1 lambda2) #s(hole binary64 (* -1 lambda2))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole 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))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole 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))))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (+ (* -2 (* lambda1 lambda2)) (pow lambda1 2)))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (+ (* lambda2 (+ lambda2 (* -2 lambda1))) (pow lambda1 2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* lambda1 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda2)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2)))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* lambda2 (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* lambda2 (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* lambda2 (+ (* -1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) lambda2))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) lambda2)))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* lambda2 (+ (* -1 (/ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (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))))))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* -2 (/ lambda1 lambda2)))))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (* (pow lambda2 2) (+ 1 (+ (* -2 (/ lambda1 lambda2)) (/ (pow lambda1 2) (pow lambda2 2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (* lambda1 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda2)))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -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))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* -1 (* lambda2 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) lambda2))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda2)) (/ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -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))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (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))))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow lambda1 2) lambda2)) (* 2 lambda1)) lambda2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* -1 phi2))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (- phi1 phi2))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 phi2))) |
#s(approx (- phi1 phi2) #s(hole binary64 (- phi1 phi2))) |
#s(approx phi1 #s(hole binary64 phi1)) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* 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))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 phi2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole 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)))))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 phi2)))) |
#s(approx (+ phi2 phi1) #s(hole binary64 phi2)) |
#s(approx (+ phi2 phi1) #s(hole binary64 (+ phi1 phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) (* phi1 (+ (* -1 (* lambda1 (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) (* phi1 (+ (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* phi1 (+ (* -1 (* lambda1 (* phi1 (+ (* -1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)))) (* -1/48 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (+ (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (+ (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (+ (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)))) (* -1/48 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* phi1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* phi1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* phi1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* phi1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* phi1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (+ (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* phi1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)))))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (+ (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/48 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* 1/2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* phi1 (+ (* -1/8 (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* phi1 (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1/8 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* -1/48 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi2) (* 1/2 (PI))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (+ (* 1/2 phi2) (* 1/2 (PI)))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (* phi1 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))))) (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (* phi1 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (* phi1 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (* phi1 (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (- (+ (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (- (+ (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (/ (* R (pow phi2 2)) lambda1))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (+ (* -2 (/ (* R (* phi1 phi2)) lambda1)) (/ (* R (pow phi2 2)) lambda1)))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (+ (* phi1 (+ (* -2 (/ (* R phi2) lambda1)) (/ (* R phi1) lambda1))) (/ (* R (pow phi2 2)) lambda1)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* R (pow phi2 2)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (+ (* -2 (* R (* phi1 phi2))) (* R (pow phi2 2))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (+ (* R (pow phi2 2)) (* phi1 (+ (* -2 (* R phi2)) (* R phi1)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (pow phi2 2))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (+ (* -2 (* phi1 phi2)) (pow phi2 2)))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (+ (* phi1 (+ phi1 (* -2 phi2))) (pow phi2 2)))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* 1/2 (* R (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1/8 (* R (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* -1/48 (* R (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* 1/2 (* R (* lambda2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/8 (* R (* lambda2 (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* -1/48 (* R (* lambda2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* lambda1 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (+ (* lambda1 (* phi1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* 1/2 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))))))) (* lambda1 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (+ (* lambda1 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* phi1 (+ (* lambda1 (* phi1 (+ (* -1/8 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))) (* lambda1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* 1/2 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (+ (* lambda1 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* phi1 (+ (* lambda1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* 1/2 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))))))) (* phi1 (+ (* lambda1 (* phi1 (+ (* -1/2 (+ (* -1/8 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (+ (* -1/48 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* 1/48 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)))))) (* lambda1 (+ (* -1/8 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* 1/2 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (+ (* 1/2 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (* phi1 (+ (* -1/8 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (+ (* 1/2 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (* phi1 (+ (* -1/8 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* phi1 (+ (* -1/2 (+ (* -1/8 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (+ (* -1/48 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* 1/48 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)))))))))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (* phi1 (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (* phi1 (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* phi1 (+ (* -1/2 (+ (* -1/8 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/48 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)))))))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (- (+ (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (- (+ (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/8 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* 1/2 (* (pow lambda1 2) (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (+ (* -1/8 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (* (pow lambda1 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (* (pow lambda1 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/8 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* -1/48 (* (pow lambda1 2) (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* -1/2 (/ (* lambda2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* phi1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/8 (/ (* lambda2 (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* phi1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* phi1 (+ (* 1/48 (/ (* lambda2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1))))))))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (+ (* 1/2 (/ (* lambda2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (+ (* phi1 (+ (* -1/8 (/ (* lambda2 (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)))) (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* phi1 (+ (* -1/8 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* -1/48 (/ (* lambda2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))))) (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* -1 (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/8 (* lambda2 (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* 1/48 (* lambda2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/8 (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* 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))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* 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))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* 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))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (pow (cos (* 1/2 phi2)) 2))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (cos (* 1/2 phi2)) 2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2)))))) (pow (cos (* 1/2 phi2)) 2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (sin (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))))))) (pow (cos (* 1/2 phi2)) 2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi1))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 phi1)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 phi1)) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (- phi1 phi2) #s(hole binary64 phi1)) |
#s(approx (- phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 (+ phi1 phi2))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 phi1)) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* phi1 (+ 1 (/ phi2 phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* lambda1 (+ (* -1 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow phi1 2))) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (pow phi1 2))) (+ (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (pow phi1 2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (pow phi1 2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow phi1 2)))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1/2 (+ (* 1/2 (/ phi2 phi1)) (* 1/2 (/ (PI) phi1))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (* R (pow phi2 2)) (* lambda1 (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (/ (* R (pow phi1 2)) lambda1))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 phi1))) (/ R lambda1))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 phi1))) (+ (/ R lambda1) (/ (* R (pow phi2 2)) (* lambda1 (pow phi1 2)))))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* R (pow phi1 2)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi1 2) (+ R (* -2 (/ (* R phi2) phi1)))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi1 2) (+ R (+ (* -2 (/ (* R phi2) phi1)) (/ (* R (pow phi2 2)) (pow phi1 2))))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (pow phi1 2))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (/ (pow phi2 2) (pow phi1 2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 phi1)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* 1/2 (/ (pow phi1 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ phi2 (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ 1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ phi2 (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (/ 1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) (pow phi1 2))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ phi2 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ phi2 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (* lambda1 (pow phi1 2)))) (+ (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow phi1 2))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ phi2 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ phi2 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (* lambda1 (pow phi1 2)))) (+ (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ phi2 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ phi2 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (pow phi2 2) (* (pow lambda1 2) (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* R phi1))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 phi1)) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* 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))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (pow phi1 2))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (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)))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi1))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* -1 (* phi1 (- (/ phi2 phi1) 1))))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (/ phi2 phi1) 1))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* lambda1 (+ (* -1 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) phi1)) phi1)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) phi1)) (/ (* R phi2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) phi1)) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) lambda1)) phi1))) phi1)) (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) phi1))) phi1)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ (* 1/2 phi2) (* 1/2 (PI))) phi1)) 1/2))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (* 1/2 (/ (* R (pow phi2 2)) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) phi1)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R (pow phi2 2)) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* 2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) phi1)) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R (pow phi2 2)) (* lambda1 phi1))) (* 2 (/ (* R phi2) lambda1))) phi1)) (/ R lambda1))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi1 2) (+ R (* -1 (/ (+ (* -1 (/ (* R (pow phi2 2)) phi1)) (* 2 (* R phi2))) phi1)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow phi2 2) phi1)) (* 2 phi2)) phi1)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 phi1))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -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))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* 1/2 (/ (pow phi1 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ phi2 (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* 1/2 (/ 1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))))) phi1)) (/ phi2 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) phi1)) (* 1/2 (/ 1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ phi2 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) phi1)) (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) phi1)) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ phi2 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) phi1)) (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) phi1)) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ phi2 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (pow phi2 2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* 2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) phi1)) (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))) lambda1)))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))) lambda1))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 phi1))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -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))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (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)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (+ phi1 (* -1 phi2)))) |
#s(approx (- phi1 phi2) #s(hole binary64 (+ phi1 (* -1 phi2)))) |
#s(approx phi2 #s(hole binary64 phi2)) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole 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))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole 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))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 phi1)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole 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)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) (* phi2 (+ (* -1 (* lambda1 (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) (* phi2 (+ (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* phi2 (+ (* -1 (* lambda1 (* phi2 (+ (* -1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)))) (* -1/48 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (+ (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (+ (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (+ (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)))) (* -1/48 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* phi2 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* phi2 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* phi2 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* phi2 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* phi2 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (+ (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* phi2 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)))))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (+ (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/48 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* 1/2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* phi2 (+ (* -1/8 (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* phi2 (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1/8 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* -1/48 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 (PI))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (* phi2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))))) (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (* phi2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (* phi2 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (* phi2 (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (- (+ (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (- (+ (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (- (+ (* -1 (* phi2 (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (+ (* -2 (/ (* R (* phi1 phi2)) lambda1)) (/ (* R (pow phi1 2)) lambda1)))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (+ (* phi2 (+ (* -2 (/ (* R phi1) lambda1)) (/ (* R phi2) lambda1))) (/ (* R (pow phi1 2)) lambda1)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (+ (* -2 (* R (* phi1 phi2))) (* R (pow phi1 2))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (+ (* R (pow phi1 2)) (* phi2 (+ (* -2 (* R phi1)) (* R phi2)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (+ (* -2 (* phi1 phi2)) (pow phi1 2)))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (+ (* phi2 (+ phi2 (* -2 phi1))) (pow phi1 2)))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* 1/2 (* R (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1/8 (* R (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* -1/48 (* R (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* 1/2 (* R (* lambda2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/8 (* R (* lambda2 (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* -1/48 (* R (* lambda2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* lambda1 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (+ (* lambda1 (* phi2 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* 1/2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))))))) (* lambda1 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (+ (* lambda1 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* phi2 (+ (* lambda1 (* phi2 (+ (* -1/8 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))) (* lambda1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* 1/2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (+ (* lambda1 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* phi2 (+ (* lambda1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* 1/2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))))))) (* phi2 (+ (* lambda1 (* phi2 (+ (* -1/2 (+ (* -1/8 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (+ (* -1/48 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* 1/48 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)))))) (* lambda1 (+ (* -1/8 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* 1/2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (+ (* 1/2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (* phi2 (+ (* -1/8 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (+ (* 1/2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (* phi2 (+ (* -1/8 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* phi2 (+ (* -1/2 (+ (* -1/8 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (+ (* -1/48 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* 1/48 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)))))))))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (* phi2 (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (* phi2 (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* phi2 (+ (* -1/2 (+ (* -1/8 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/48 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)))))))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (- (+ (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (- (+ (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (- (+ (* -1 (* phi2 (+ (* -1/8 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* 1/2 (* (pow lambda1 2) (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/8 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (* (pow lambda1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (pow lambda1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/8 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* -1/48 (* (pow lambda1 2) (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* -1/2 (/ (* lambda2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* phi2 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/8 (/ (* lambda2 (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* phi2 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* phi2 (+ (* 1/48 (/ (* lambda2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1))))))))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (+ (* 1/2 (/ (* lambda2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (+ (* phi2 (+ (* -1/8 (/ (* lambda2 (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)))) (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* phi2 (+ (* -1/8 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* -1/48 (/ (* lambda2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))))) (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* -1 (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/8 (* lambda2 (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* 1/48 (* lambda2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/8 (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* 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))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* 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))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* 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))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (pow (cos (* 1/2 phi1)) 2))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (cos (* 1/2 phi1)) 2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2)))))) (pow (cos (* 1/2 phi1)) 2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (sin (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (cos (* 1/2 phi1)) 2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi2))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 phi2)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* phi2 (- (/ phi1 phi2) 1)))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* phi2 (- (/ phi1 phi2) 1)))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* phi2 (+ 1 (/ phi1 phi2))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (* lambda1 (+ (* -1 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow phi2 2))) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (pow phi2 2))) (+ (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (pow phi2 2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (pow phi2 2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow phi2 2)))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1/2 (+ (* 1/2 (/ phi1 phi2)) (* 1/2 (/ (PI) phi2))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (* R (pow phi1 2)) (* lambda1 (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 phi2))) (/ R lambda1))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 phi2))) (+ (/ R lambda1) (/ (* R (pow phi1 2)) (* lambda1 (pow phi2 2)))))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi2 2) (+ R (* -2 (/ (* R phi1) phi2)))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi2 2) (+ R (+ (* -2 (/ (* R phi1) phi2)) (/ (* R (pow phi1 2)) (pow phi2 2))))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (/ (pow phi1 2) (pow phi2 2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 phi2)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* 1/2 (/ (pow phi2 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ phi1 (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ 1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ phi1 (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (/ 1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) (pow phi2 2))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ phi1 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ phi1 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (* lambda1 (pow phi2 2)))) (+ (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow phi2 2))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ phi1 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ phi1 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (* lambda1 (pow phi2 2)))) (+ (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ phi1 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ phi1 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (pow phi1 2) (* (pow lambda1 2) (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* R phi2))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 phi2)) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* 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))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (pow phi2 2))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (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)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi2))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* lambda1 (+ (* -1 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) phi2)) phi2)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) phi2)) (/ (* R phi1) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) phi2)) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi1) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) lambda1)) phi2))) phi2)) (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) phi2))) phi2)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ (* 1/2 phi1) (* 1/2 (PI))) phi2)) 1/2))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (* 1/2 (/ (* R (pow phi1 2)) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) phi2)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R (pow phi1 2)) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* 2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) phi2)) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R (pow phi1 2)) (* lambda1 phi2))) (* 2 (/ (* R phi1) lambda1))) phi2)) (/ R lambda1))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi2 2) (+ R (* -1 (/ (+ (* -1 (/ (* R (pow phi1 2)) phi2)) (* 2 (* R phi1))) phi2)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow phi1 2) phi2)) (* 2 phi1)) phi2)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 phi2))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -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))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* 1/2 (/ (pow phi2 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ phi1 (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* 1/2 (/ 1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))))) phi2)) (/ phi1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) phi2)) (* 1/2 (/ 1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ phi1 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) phi2)) (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) phi2)) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ phi1 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) phi2)) (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) phi2)) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ phi1 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (pow phi1 2) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* 2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) phi2)) (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))) lambda1)))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))) lambda1))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 phi2))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -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))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (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)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2))) |
15 calls:
| Time | Variable | Point | Expression | |
|---|---|---|---|---|
| 31.0ms | phi1 | @ | -inf | ((* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow (- phi1 phi2) 1) (- phi1 phi2) phi1 phi2 1 (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (+ phi2 phi1) 2 (- lambda1 lambda2) lambda1 lambda2 R (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (* -1 lambda1) -1 (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) 1/2 (/ (PI) 2) (PI) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (/ (* (pow (- phi1 phi2) 2) R) lambda1) (* (pow (- phi1 phi2) 2) R) (pow (- phi1 phi2) 2) -1/2 (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 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)))) (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* lambda1 lambda1) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* -1 lambda2) (neg lambda1) (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) |
| 29.0ms | phi2 | @ | 0 | ((* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow (- phi1 phi2) 1) (- phi1 phi2) phi1 phi2 1 (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (+ phi2 phi1) 2 (- lambda1 lambda2) lambda1 lambda2 R (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (* -1 lambda1) -1 (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) 1/2 (/ (PI) 2) (PI) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (/ (* (pow (- phi1 phi2) 2) R) lambda1) (* (pow (- phi1 phi2) 2) R) (pow (- phi1 phi2) 2) -1/2 (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 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)))) (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* lambda1 lambda1) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* -1 lambda2) (neg lambda1) (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) |
| 23.0ms | phi1 | @ | 0 | ((* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow (- phi1 phi2) 1) (- phi1 phi2) phi1 phi2 1 (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (+ phi2 phi1) 2 (- lambda1 lambda2) lambda1 lambda2 R (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (* -1 lambda1) -1 (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) 1/2 (/ (PI) 2) (PI) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (/ (* (pow (- phi1 phi2) 2) R) lambda1) (* (pow (- phi1 phi2) 2) R) (pow (- phi1 phi2) 2) -1/2 (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 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)))) (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* lambda1 lambda1) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* -1 lambda2) (neg lambda1) (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) |
| 16.0ms | R | @ | inf | ((* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow (- phi1 phi2) 1) (- phi1 phi2) phi1 phi2 1 (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (+ phi2 phi1) 2 (- lambda1 lambda2) lambda1 lambda2 R (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (* -1 lambda1) -1 (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) 1/2 (/ (PI) 2) (PI) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (/ (* (pow (- phi1 phi2) 2) R) lambda1) (* (pow (- phi1 phi2) 2) R) (pow (- phi1 phi2) 2) -1/2 (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 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)))) (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* lambda1 lambda1) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* -1 lambda2) (neg lambda1) (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) |
| 15.0ms | lambda2 | @ | 0 | ((* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow (- phi1 phi2) 1) (- phi1 phi2) phi1 phi2 1 (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (+ phi2 phi1) 2 (- lambda1 lambda2) lambda1 lambda2 R (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (* -1 lambda1) -1 (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) 1/2 (/ (PI) 2) (PI) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (/ (* (pow (- phi1 phi2) 2) R) lambda1) (* (pow (- phi1 phi2) 2) R) (pow (- phi1 phi2) 2) -1/2 (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 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)))) (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* lambda1 lambda1) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* -1 lambda2) (neg lambda1) (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 3496 | 70967 |
| 0 | 3592 | 65686 |
| 0 | 11213 | 62267 |
| 1× | iter limit |
| 1× | node limit |
| 1× | iter limit |
| Inputs |
|---|
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) |
(-.f64 phi1 phi2) |
phi1 |
phi2 |
#s(literal 1 binary64) |
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) |
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) |
(/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) |
(+.f64 phi2 phi1) |
#s(literal 2 binary64) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
R |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R))) |
(*.f64 #s(literal -1 binary64) lambda1) |
#s(literal -1 binary64) |
(fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)) |
(/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) |
(fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) |
(*.f64 R lambda2) |
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) |
#s(literal 1/2 binary64) |
(/.f64 (PI.f64) #s(literal 2 binary64)) |
(PI.f64) |
(*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64)) |
(/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) |
(*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) |
#s(literal -1/2 binary64) |
(*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
(*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 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 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)) |
(*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1) |
(+.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) |
(/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
(*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(*.f64 lambda1 lambda1) |
(*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64)) |
(/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) |
(*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(*.f64 #s(literal -1 binary64) lambda2) |
(neg.f64 lambda1) |
(*.f64 R (sqrt.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
(sqrt.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
(fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) |
(pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) |
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx R #s(hole binary64 R)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* R (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* R (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (* R (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* R (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R lambda2) #s(hole binary64 (* R lambda2))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (/ (* R (pow (- phi1 phi2) 2)) lambda1))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* R (pow (- phi1 phi2) 2)))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* R (* lambda1 (+ (* -1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (* -1 (/ (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* -1 (* R (+ (* -1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (* -1 (/ (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1 (/ (* R (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) lambda1)))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1 (* R (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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)))))) (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2))) |
#s(approx lambda1 #s(hole binary64 lambda1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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)))))) (* 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))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (+ (* -1 (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) lambda1))) |
#s(approx (* -1 lambda1) #s(hole binary64 (* -1 lambda1))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (/ (+ (* -1 (* R (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow lambda1 2)))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (/ (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (+ (* -1 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (pow lambda1 2)))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (pow lambda1 2)))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (/ (+ (* -1 (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (/ (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (+ (* -1 (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow lambda1 2)))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (pow lambda1 2)))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (/ (+ (* -1 (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow lambda1 2)))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* lambda1 lambda1) #s(hole binary64 (pow lambda1 2))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1))) |
#s(approx (neg lambda1) #s(hole binary64 (* -1 lambda1))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole 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))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole 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)))))) (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole 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))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole 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))))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (pow lambda2 2))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (+ (* -2 (* lambda1 lambda2)) (pow lambda2 2)))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (+ (* lambda1 (+ lambda1 (* -2 lambda2))) (pow lambda2 2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1)) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* lambda1 (+ (* -1 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* lambda1 (+ (* -1 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (/ (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (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))))))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (pow lambda1 2))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -2 (/ lambda2 lambda1)))))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (* (pow lambda1 2) (+ 1 (+ (* -2 (/ lambda2 lambda1)) (/ (pow lambda2 2) (pow lambda1 2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1 (/ (+ (* -1 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1)))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -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))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (* -1 (/ (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -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))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (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))))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow lambda2 2) lambda1)) (* 2 lambda2)) lambda1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2)))) |
#s(approx lambda2 #s(hole binary64 lambda2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* -1 lambda2) #s(hole binary64 (* -1 lambda2))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole 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))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole 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))))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (+ (* -2 (* lambda1 lambda2)) (pow lambda1 2)))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (+ (* lambda2 (+ lambda2 (* -2 lambda1))) (pow lambda1 2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* lambda1 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda2)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2)))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* lambda2 (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* lambda2 (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* lambda2 (+ (* -1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) lambda2))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) lambda2)))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* lambda2 (+ (* -1 (/ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (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))))))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* -2 (/ lambda1 lambda2)))))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (* (pow lambda2 2) (+ 1 (+ (* -2 (/ lambda1 lambda2)) (/ (pow lambda1 2) (pow lambda2 2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (* lambda1 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda2)))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -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))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* -1 (* lambda2 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) lambda2))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda2)) (/ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -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))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (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))))) |
#s(approx (pow (- lambda1 lambda2) 2) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow lambda1 2) lambda2)) (* 2 lambda1)) lambda2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* -1 phi2))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (- phi1 phi2))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 phi2))) |
#s(approx (- phi1 phi2) #s(hole binary64 (- phi1 phi2))) |
#s(approx phi1 #s(hole binary64 phi1)) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* 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))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 phi2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole 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)))))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 phi2)))) |
#s(approx (+ phi2 phi1) #s(hole binary64 phi2)) |
#s(approx (+ phi2 phi1) #s(hole binary64 (+ phi1 phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) (* phi1 (+ (* -1 (* lambda1 (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) (* phi1 (+ (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* phi1 (+ (* -1 (* lambda1 (* phi1 (+ (* -1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)))) (* -1/48 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (+ (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (+ (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (+ (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)))) (* -1/48 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* phi1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* phi1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* phi1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* phi1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* phi1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (+ (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* phi1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)))))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (+ (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/48 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* 1/2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* phi1 (+ (* -1/8 (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* phi1 (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1/8 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* -1/48 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi2) (* 1/2 (PI))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (+ (* 1/2 phi2) (* 1/2 (PI)))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (* phi1 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))))) (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (* phi1 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (* phi1 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (* phi1 (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (- (+ (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (- (+ (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (/ (* R (pow phi2 2)) lambda1))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (+ (* -2 (/ (* R (* phi1 phi2)) lambda1)) (/ (* R (pow phi2 2)) lambda1)))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (+ (* phi1 (+ (* -2 (/ (* R phi2) lambda1)) (/ (* R phi1) lambda1))) (/ (* R (pow phi2 2)) lambda1)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* R (pow phi2 2)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (+ (* -2 (* R (* phi1 phi2))) (* R (pow phi2 2))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (+ (* R (pow phi2 2)) (* phi1 (+ (* -2 (* R phi2)) (* R phi1)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (pow phi2 2))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (+ (* -2 (* phi1 phi2)) (pow phi2 2)))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (+ (* phi1 (+ phi1 (* -2 phi2))) (pow phi2 2)))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* 1/2 (* R (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1/8 (* R (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* -1/48 (* R (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* 1/2 (* R (* lambda2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/8 (* R (* lambda2 (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* -1/48 (* R (* lambda2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* lambda1 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (+ (* lambda1 (* phi1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* 1/2 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))))))) (* lambda1 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (+ (* lambda1 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* phi1 (+ (* lambda1 (* phi1 (+ (* -1/8 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))) (* lambda1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* 1/2 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (+ (* lambda1 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* phi1 (+ (* lambda1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* 1/2 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))))))) (* phi1 (+ (* lambda1 (* phi1 (+ (* -1/2 (+ (* -1/8 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (+ (* -1/48 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* 1/48 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)))))) (* lambda1 (+ (* -1/8 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* 1/2 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (+ (* 1/2 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (* phi1 (+ (* -1/8 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (+ (* 1/2 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (* phi1 (+ (* -1/8 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* phi1 (+ (* -1/2 (+ (* -1/8 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (+ (* -1/48 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* 1/48 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)))))))))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (* phi1 (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (* phi1 (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* phi1 (+ (* -1/2 (+ (* -1/8 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/48 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)))))))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (- (+ (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (- (+ (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/8 (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* -1/8 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* 1/2 (/ (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* 1/2 (* (pow lambda1 2) (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (+ (* -1/8 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (* (pow lambda1 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (* (pow lambda1 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/8 (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* -1/48 (* (pow lambda1 2) (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* -1/2 (/ (* lambda2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* phi1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* 1/8 (/ (* lambda2 (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* phi1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* phi1 (+ (* 1/48 (/ (* lambda2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1))))))))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (+ (* 1/2 (/ (* lambda2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (+ (* phi1 (+ (* -1/8 (/ (* lambda2 (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)))) (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (/ (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* phi1 (+ (* -1/8 (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)) (* -1/48 (/ (* lambda2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))))) (/ (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) lambda1)))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* -1 (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/8 (* lambda2 (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* 1/48 (* lambda2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/8 (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* 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))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* 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))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* 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))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (pow (cos (* 1/2 phi2)) 2))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (cos (* 1/2 phi2)) 2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2)))))) (pow (cos (* 1/2 phi2)) 2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (sin (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))))))) (pow (cos (* 1/2 phi2)) 2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi1))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 phi1)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 phi1)) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (- phi1 phi2) #s(hole binary64 phi1)) |
#s(approx (- phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 (+ phi1 phi2))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 phi1)) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* phi1 (+ 1 (/ phi2 phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* lambda1 (+ (* -1 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow phi1 2))) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (pow phi1 2))) (+ (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (pow phi1 2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (pow phi1 2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow phi1 2)))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1/2 (+ (* 1/2 (/ phi2 phi1)) (* 1/2 (/ (PI) phi1))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (* R (pow phi2 2)) (* lambda1 (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (/ (* R (pow phi1 2)) lambda1))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 phi1))) (/ R lambda1))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 phi1))) (+ (/ R lambda1) (/ (* R (pow phi2 2)) (* lambda1 (pow phi1 2)))))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* R (pow phi1 2)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi1 2) (+ R (* -2 (/ (* R phi2) phi1)))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi1 2) (+ R (+ (* -2 (/ (* R phi2) phi1)) (/ (* R (pow phi2 2)) (pow phi1 2))))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (pow phi1 2))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (/ (pow phi2 2) (pow phi1 2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 phi1)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* 1/2 (/ (pow phi1 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ phi2 (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ 1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ phi2 (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (/ 1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) (pow phi1 2))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ phi2 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ phi2 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (* lambda1 (pow phi1 2)))) (+ (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow phi1 2))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ phi2 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ phi2 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (* lambda1 (pow phi1 2)))) (+ (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ phi2 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ phi2 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (pow phi2 2) (* (pow lambda1 2) (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* R phi1))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 phi1)) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* 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))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (pow phi1 2))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (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)))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi1))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* -1 (* phi1 (- (/ phi2 phi1) 1))))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (/ phi2 phi1) 1))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* lambda1 (+ (* -1 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) phi1)) phi1)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) phi1)) (/ (* R phi2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) phi1)) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) lambda1)) phi1))) phi1)) (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) phi1))) phi1)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ (* 1/2 phi2) (* 1/2 (PI))) phi1)) 1/2))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (* 1/2 (/ (* R (pow phi2 2)) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) phi1)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R (pow phi2 2)) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* 2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) phi1)) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R (pow phi2 2)) (* lambda1 phi1))) (* 2 (/ (* R phi2) lambda1))) phi1)) (/ R lambda1))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi1 2) (+ R (* -1 (/ (+ (* -1 (/ (* R (pow phi2 2)) phi1)) (* 2 (* R phi2))) phi1)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow phi2 2) phi1)) (* 2 phi2)) phi1)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 phi1))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -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))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* 1/2 (/ (pow phi1 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ phi2 (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* 1/2 (/ 1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))))) phi1)) (/ phi2 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) phi1)) (* 1/2 (/ 1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ phi2 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) phi1)) (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) phi1)) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ phi2 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) phi1)) (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) phi1)) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ phi2 (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (pow phi2 2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* 2 (/ phi2 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) phi1)) (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))) lambda1)))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))) lambda1))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 phi1))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -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))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (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)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (+ phi1 (* -1 phi2)))) |
#s(approx (- phi1 phi2) #s(hole binary64 (+ phi1 (* -1 phi2)))) |
#s(approx phi2 #s(hole binary64 phi2)) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole 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))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole 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))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 phi1)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole 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)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) (* phi2 (+ (* -1 (* lambda1 (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) (* phi2 (+ (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* phi2 (+ (* -1 (* lambda1 (* phi2 (+ (* -1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)))) (* -1/48 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (+ (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (+ (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (+ (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)))) (* -1/48 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* phi2 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* phi2 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* phi2 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* phi2 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* phi2 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (+ (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* phi2 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)))))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (+ (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/48 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* 1/2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* phi2 (+ (* -1/8 (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* phi2 (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1/8 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* -1/48 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 (PI))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (* phi2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))))) (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (* phi2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (* phi2 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (* phi2 (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (- (+ (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (- (+ (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (- (+ (* -1 (* phi2 (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (+ (* -2 (/ (* R (* phi1 phi2)) lambda1)) (/ (* R (pow phi1 2)) lambda1)))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (+ (* phi2 (+ (* -2 (/ (* R phi1) lambda1)) (/ (* R phi2) lambda1))) (/ (* R (pow phi1 2)) lambda1)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (+ (* -2 (* R (* phi1 phi2))) (* R (pow phi1 2))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (+ (* R (pow phi1 2)) (* phi2 (+ (* -2 (* R phi1)) (* R phi2)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (+ (* -2 (* phi1 phi2)) (pow phi1 2)))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (+ (* phi2 (+ phi2 (* -2 phi1))) (pow phi1 2)))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* 1/2 (* R (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1/8 (* R (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* -1/48 (* R (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* 1/2 (* R (* lambda2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/8 (* R (* lambda2 (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* -1/48 (* R (* lambda2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* lambda1 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (+ (* lambda1 (* phi2 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* 1/2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))))))) (* lambda1 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (+ (* lambda1 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* phi2 (+ (* lambda1 (* phi2 (+ (* -1/8 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))) (* lambda1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* 1/2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (+ (* lambda1 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* phi2 (+ (* lambda1 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* 1/2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))))))) (* phi2 (+ (* lambda1 (* phi2 (+ (* -1/2 (+ (* -1/8 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (+ (* -1/48 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* 1/48 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)))))) (* lambda1 (+ (* -1/8 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* 1/2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (+ (* 1/2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (* phi2 (+ (* -1/8 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (+ (* 1/2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (* phi2 (+ (* -1/8 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* phi2 (+ (* -1/2 (+ (* -1/8 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (+ (* -1/48 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* 1/48 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)))))))))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (* phi2 (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (* phi2 (+ (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (+ (* 1/2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* phi2 (+ (* -1/2 (+ (* -1/8 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/48 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)))))))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (- (+ (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (- (+ (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (- (+ (* -1 (* phi2 (+ (* -1/8 (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* -1/8 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* 1/2 (/ (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* (pow lambda1 2) (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* 1/2 (* (pow lambda1 2) (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/8 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (* (pow lambda1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (pow lambda1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/8 (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* -1/48 (* (pow lambda1 2) (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* -1/2 (/ (* lambda2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* phi2 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* 1/8 (/ (* lambda2 (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* phi2 (+ (* -1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* phi2 (+ (* 1/48 (/ (* lambda2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* 1/8 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1))))))))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (+ (* 1/2 (/ (* lambda2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (+ (* phi2 (+ (* -1/8 (/ (* lambda2 (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)))) (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (/ (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* phi2 (+ (* -1/8 (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)) (* -1/48 (/ (* lambda2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))))) (/ (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) lambda1)))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* -1 (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/8 (* lambda2 (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* 1/48 (* lambda2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/8 (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* 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))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* 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))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (+ (* 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))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (pow (cos (* 1/2 phi1)) 2))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (cos (* 1/2 phi1)) 2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2)))))) (pow (cos (* 1/2 phi1)) 2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (sin (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (cos (* 1/2 phi1)) 2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi2))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 phi2)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* phi2 (- (/ phi1 phi2) 1)))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* phi2 (- (/ phi1 phi2) 1)))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* phi2 (+ 1 (/ phi1 phi2))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (* lambda1 (+ (* -1 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow phi2 2))) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (pow phi2 2))) (+ (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (pow phi2 2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (pow phi2 2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow phi2 2)))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1/2 (+ (* 1/2 (/ phi1 phi2)) (* 1/2 (/ (PI) phi2))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (* R (pow phi1 2)) (* lambda1 (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 phi2))) (/ R lambda1))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 phi2))) (+ (/ R lambda1) (/ (* R (pow phi1 2)) (* lambda1 (pow phi2 2)))))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi2 2) (+ R (* -2 (/ (* R phi1) phi2)))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi2 2) (+ R (+ (* -2 (/ (* R phi1) phi2)) (/ (* R (pow phi1 2)) (pow phi2 2))))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (/ (pow phi1 2) (pow phi2 2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 phi2)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* 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))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* 1/2 (/ (pow phi2 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ phi1 (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ 1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ phi1 (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (/ 1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) (pow phi2 2))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ phi1 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ phi1 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (* lambda1 (pow phi2 2)))) (+ (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow phi2 2))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ phi1 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ phi1 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (* lambda1 (pow phi2 2)))) (+ (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ phi1 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ phi1 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (pow phi1 2) (* (pow lambda1 2) (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* R phi2))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 phi2)) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* 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))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (pow phi2 2))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (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)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi2))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* lambda1 (+ (* -1 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) phi2)) phi2)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) phi2)) (/ (* R phi1) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) phi2)) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi1) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) lambda1)) phi2))) phi2)) (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) phi2))) phi2)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ (* 1/2 phi1) (* 1/2 (PI))) phi2)) 1/2))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (* 1/2 (/ (* R (pow phi1 2)) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) phi2)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R (pow phi1 2)) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* 2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) phi2)) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R (pow phi1 2)) (* lambda1 phi2))) (* 2 (/ (* R phi1) lambda1))) phi2)) (/ R lambda1))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi2 2) (+ R (* -1 (/ (+ (* -1 (/ (* R (pow phi1 2)) phi2)) (* 2 (* R phi1))) phi2)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow phi1 2) phi2)) (* 2 phi1)) phi2)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 phi2))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -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))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* 1/2 (/ (pow phi2 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ phi1 (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* 1/2 (/ 1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))))) phi2)) (/ phi1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) phi2)) (* 1/2 (/ 1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ phi1 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) phi2)) (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) phi2)) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ phi1 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) phi2)) (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) phi2)) (* 1/2 (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (/ (pow phi2 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ phi1 (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (pow phi1 2) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* 2 (/ phi1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) phi2)) (/ 1 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) #s(hole binary64 (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))) lambda1)))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) #s(hole binary64 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))) lambda1))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 phi2))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) #s(hole binary64 (* -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))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) #s(hole binary64 (* (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)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) #s(hole binary64 (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2))) |
| Outputs |
|---|
(*.f64 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(pow.f64 (fma.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (-.f64 phi1 phi2)) (*.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)))) #s(literal 1/2 binary64)) |
(sqrt.f64 (fma.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (-.f64 phi1 phi2)) (*.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))))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(hypot.f64 (-.f64 phi1 phi2) (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (-.f64 phi1 phi2) (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) |
(-.f64 phi1 phi2) |
(exp.f64 (*.f64 (log.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64))) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) |
(-.f64 phi1 phi2) |
(exp.f64 (*.f64 (log.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64))) |
phi1 |
phi2 |
#s(literal 1 binary64) |
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) |
(sin.f64 (+.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(cos.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) |
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) |
(/.f64 (neg.f64 (+.f64 phi2 phi1)) #s(literal -2 binary64)) |
(/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) |
(+.f64 (/.f64 phi2 #s(literal 2 binary64)) (/.f64 phi1 #s(literal 2 binary64))) |
(/.f64 (fma.f64 (*.f64 phi2 phi2) phi2 (*.f64 (*.f64 phi1 phi1) phi1)) (+.f64 (*.f64 phi2 phi2) (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi1)))) |
(+.f64 phi2 phi1) |
#s(literal 2 binary64) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
R |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R))) |
(*.f64 #s(literal -1 binary64) lambda1) |
#s(literal -1 binary64) |
(/.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64)) (*.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64))) (-.f64 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R))))) |
(fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)) |
(+.f64 (*.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)) |
(/.f64 (neg.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64)))) (neg.f64 lambda1)) |
(/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) |
(+.f64 (/.f64 (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1) (/.f64 (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64)) lambda1)) |
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64)) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) (*.f64 (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64)))))) |
(fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) |
(+.f64 (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) |
(*.f64 R lambda2) |
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) |
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)) #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
(fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) |
(+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))) |
#s(literal 1/2 binary64) |
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64)) |
(/.f64 (PI.f64) #s(literal 2 binary64)) |
(PI.f64) |
(*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64)) |
(/.f64 (neg.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1)) (neg.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
(/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(/.f64 (neg.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R)) (neg.f64 lambda1)) |
(/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) |
(*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) |
(*.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (-.f64 phi1 phi2))) |
(*.f64 (fabs.f64 (-.f64 phi1 phi2)) (fabs.f64 (-.f64 phi1 phi2))) |
(*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) |
(pow.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #s(literal 1 binary64)) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) |
(exp.f64 (*.f64 (log.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64))) |
#s(literal -1/2 binary64) |
(*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
(*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 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 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)) |
(*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1) |
(/.f64 (+.f64 (pow.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
(+.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(/.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64)) (*.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (*.f64 (*.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64)))))) |
(fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) |
(+.f64 (*.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) |
(/.f64 (neg.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (neg.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
(/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
(*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(*.f64 (fabs.f64 lambda1) (fabs.f64 lambda1)) |
(*.f64 (neg.f64 lambda1) (neg.f64 lambda1)) |
(*.f64 lambda1 lambda1) |
(pow.f64 lambda1 #s(literal 2 binary64)) |
(exp.f64 (*.f64 (log.f64 lambda1) #s(literal 2 binary64))) |
(*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64)) |
(/.f64 (neg.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (neg.f64 (neg.f64 lambda1))) |
(/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) |
(*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(*.f64 #s(literal -1 binary64) lambda2) |
(neg.f64 lambda1) |
(*.f64 R (pow.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
(pow.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(sqrt.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
(/.f64 (+.f64 (pow.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))) (-.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) |
(fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) |
(+.f64 (*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) |
(*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) |
(pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) |
(exp.f64 (*.f64 (log.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) |
(*.f64 (neg.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (neg.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) |
(*.f64 (fabs.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (fabs.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) |
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) |
(pow.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)) |
(/.f64 (+.f64 (cos.f64 (+.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (-.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)) |
(-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))))) |
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx R R) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 R (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (/.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda1)) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 R (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* R lambda2) (*.f64 R lambda2)) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) lambda1)) |
#s(approx (* (pow (- phi1 phi2) 2) R) (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 R (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) lambda1)))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 #s(literal -1 binary64) (*.f64 R (fma.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) lambda1)))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) lambda1))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 #s(literal -1 binary64) (*.f64 R (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (fma.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2)) |
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2)) |
#s(approx lambda1 lambda1) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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))))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) lambda1)) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) lambda1)) |
#s(approx (* -1 lambda1) (*.f64 #s(literal -1 binary64) lambda1)) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 lambda1 lambda1))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) (*.f64 lambda1 lambda1))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (*.f64 lambda1 lambda1))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) lambda1)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #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 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #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 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda1)) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) lambda1)) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 lambda1 lambda1))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (*.f64 lambda1 lambda1))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 lambda1 lambda1))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) |
#s(approx (* lambda1 lambda1) (*.f64 lambda1 lambda1)) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1)) |
#s(approx (neg lambda1) (*.f64 #s(literal -1 binary64) lambda1)) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (fma.f64 #s(literal -2 binary64) (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
#s(approx (pow (- lambda1 lambda2) 2) (*.f64 lambda2 lambda2)) |
#s(approx (pow (- lambda1 lambda2) 2) (fma.f64 #s(literal -2 binary64) (*.f64 lambda1 lambda2) (*.f64 lambda2 lambda2))) |
#s(approx (pow (- lambda1 lambda2) 2) (fma.f64 lambda1 (+.f64 lambda1 (*.f64 #s(literal -2 binary64) lambda2)) (*.f64 lambda2 lambda2))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))))) |
#s(approx (- lambda1 lambda2) lambda1) |
#s(approx (- lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 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 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda1)) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1)))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (/.f64 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) lambda1)) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (*.f64 (*.f64 lambda1 lambda1) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (*.f64 (*.f64 lambda1 lambda1) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (+.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda1 lambda1)) (+.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) |
#s(approx (pow (- lambda1 lambda2) 2) (*.f64 lambda1 lambda1)) |
#s(approx (pow (- lambda1 lambda2) 2) (*.f64 (*.f64 lambda1 lambda1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 lambda2 lambda1))))) |
#s(approx (pow (- lambda1 lambda2) 2) (*.f64 (*.f64 lambda1 lambda1) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 lambda2 lambda1) (/.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 lambda1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda2 lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))))) |
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #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 #s(literal -1 binary64) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) lambda1))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda2 lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1)))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) lambda1)))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda2 lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1)))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (*.f64 (*.f64 lambda1 lambda1) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) lambda1) (*.f64 #s(literal 2 binary64) (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (pow (- lambda1 lambda2) 2) (*.f64 (*.f64 lambda1 lambda1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 lambda2) lambda1) (*.f64 #s(literal 2 binary64) lambda2)) lambda1))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) |
#s(approx lambda2 lambda2) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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))))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #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 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #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 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (fma.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (* -1 lambda2) (*.f64 #s(literal -1 binary64) lambda2)) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (fma.f64 #s(literal -2 binary64) (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (fma.f64 lambda2 (fma.f64 #s(literal -2 binary64) (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
#s(approx (pow (- lambda1 lambda2) 2) (fma.f64 #s(literal -2 binary64) (*.f64 lambda1 lambda2) (*.f64 lambda1 lambda1))) |
#s(approx (pow (- lambda1 lambda2) 2) (fma.f64 lambda2 (+.f64 lambda2 (*.f64 #s(literal -2 binary64) lambda1)) (*.f64 lambda1 lambda1))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda1 (*.f64 (*.f64 lambda2 lambda2) lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)))) |
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #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 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (/.f64 (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda2))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (/.f64 (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1)))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda1 (*.f64 (*.f64 lambda2 lambda2) lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) lambda2)))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (/.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda1 (*.f64 (*.f64 lambda2 lambda2) lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (*.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (*.f64 (*.f64 lambda2 lambda2) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (*.f64 (*.f64 lambda2 lambda2) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (+.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda2 lambda2)) (+.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) |
#s(approx (pow (- lambda1 lambda2) 2) (*.f64 (*.f64 lambda2 lambda2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 lambda1 lambda2))))) |
#s(approx (pow (- lambda1 lambda2) 2) (*.f64 (*.f64 lambda2 lambda2) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 lambda1 lambda2) (/.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda2) (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda1 lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)))))) |
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 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 #s(literal -1 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda2) (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda2))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2) (/.f64 (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda1 lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2)))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) lambda2)))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) lambda2) (/.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (/.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda2) (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda1 lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2)))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (*.f64 (*.f64 lambda2 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) lambda2) (*.f64 #s(literal 2 binary64) (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (pow (- lambda1 lambda2) 2) (*.f64 (*.f64 lambda2 lambda2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 lambda1) lambda2) (*.f64 #s(literal 2 binary64) lambda1)) lambda2))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) phi2)) |
#s(approx (- phi1 phi2) (-.f64 phi1 phi2)) |
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) phi2)) |
#s(approx (- phi1 phi2) (-.f64 phi1 phi2)) |
#s(approx phi1 phi1) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (fma.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi1 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) |
#s(approx (/ (+ phi2 phi1) 2) (*.f64 #s(literal 1/2 binary64) phi2)) |
#s(approx (/ (+ phi2 phi1) 2) (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) phi2))) |
#s(approx (+ phi2 phi1) phi2) |
#s(approx (+ phi2 phi1) (+.f64 phi1 phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 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))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/48 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1))) (*.f64 #s(literal -1/48 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (fma.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/48 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1))) (*.f64 #s(literal -1/48 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1)) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 phi1 (fma.f64 #s(literal -1/48 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1))))))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (fma.f64 #s(literal -1/48 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/48 binary64) (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) (fma.f64 #s(literal 1/2 binary64) phi1 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (fma.f64 #s(literal -1/2 binary64) (*.f64 phi1 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 phi1 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 phi1 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 phi1 (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 phi1 (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (/.f64 (*.f64 R (*.f64 phi2 phi2)) lambda1)) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi2)) lambda1) (/.f64 (*.f64 R (*.f64 phi2 phi2)) lambda1))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (fma.f64 phi1 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 R phi2) lambda1) (/.f64 (*.f64 R phi1) lambda1)) (/.f64 (*.f64 R (*.f64 phi2 phi2)) lambda1))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (*.f64 R (*.f64 phi2 phi2))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (fma.f64 #s(literal -2 binary64) (*.f64 R (*.f64 phi1 phi2)) (*.f64 R (*.f64 phi2 phi2)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (fma.f64 R (*.f64 phi2 phi2) (*.f64 phi1 (fma.f64 #s(literal -2 binary64) (*.f64 R phi2) (*.f64 R phi1))))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 phi2 phi2)) |
#s(approx (pow (- phi1 phi2) 2) (fma.f64 #s(literal -2 binary64) (*.f64 phi1 phi2) (*.f64 phi2 phi2))) |
#s(approx (pow (- phi1 phi2) 2) (fma.f64 phi1 (+.f64 phi1 (*.f64 #s(literal -2 binary64) phi2)) (*.f64 phi2 phi2))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal -1/48 binary64) (*.f64 R (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 lambda2 (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 lambda2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal -1/48 binary64) (*.f64 R (*.f64 lambda2 (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #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 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #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 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #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 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (fma.f64 lambda1 (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (fma.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 phi1 (fma.f64 lambda1 (*.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) (*.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (fma.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 phi1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) (*.f64 phi1 (fma.f64 lambda1 (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 #s(literal -1/48 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/48 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1))))) (*.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 #s(literal -1/48 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/48 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1))))))))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1)) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 phi1 (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 phi1 (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 #s(literal 1/48 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1))))))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (fma.f64 phi1 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (fma.f64 phi1 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (fma.f64 phi1 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) (+.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1)) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 lambda2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 phi1 (fma.f64 #s(literal 1/48 binary64) (/.f64 (*.f64 lambda2 (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1)))))))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1)) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) (fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 lambda2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1))) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1)) (*.f64 #s(literal -1/48 binary64) (/.f64 (*.f64 lambda2 (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))))) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/8 binary64) (*.f64 lambda2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (fma.f64 #s(literal 1/48 binary64) (*.f64 lambda2 (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/8 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (fma.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (fma.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (fma.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 phi1 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) (fma.f64 #s(literal -1 binary64) (*.f64 phi1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) (fma.f64 phi1 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (+.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 phi1 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R phi1)) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (*.f64 phi1 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) phi1) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 phi1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (*.f64 phi1 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) |
#s(approx (- phi1 phi2) phi1) |
#s(approx (- phi1 phi2) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1))))) |
#s(approx (- phi1 phi2) phi1) |
#s(approx (- phi1 phi2) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (/ (+ phi2 phi1) 2) (*.f64 #s(literal 1/2 binary64) phi1)) |
#s(approx (/ (+ phi2 phi1) 2) (*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1))))) |
#s(approx (+ phi2 phi1) phi1) |
#s(approx (+ phi2 phi1) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (*.f64 phi1 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 phi1 phi1)) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) (*.f64 phi1 phi1)) (fma.f64 #s(literal 1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 phi1 phi1))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 phi1 phi1)))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (fma.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 phi1 phi1))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) phi1)) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) (*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (+.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (/.f64 (*.f64 R (*.f64 phi1 phi1)) lambda1)) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 phi1)) (/.f64 R lambda1)))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 phi1)) (/.f64 (fma.f64 R (*.f64 lambda1 (*.f64 phi1 phi1)) (*.f64 lambda1 (*.f64 R (*.f64 phi2 phi2)))) (*.f64 lambda1 (*.f64 lambda1 (*.f64 phi1 phi1))))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (*.f64 R (*.f64 phi1 phi1))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (*.f64 (*.f64 phi1 phi1) (+.f64 R (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 R phi2) phi1))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (*.f64 (*.f64 phi1 phi1) (+.f64 R (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 R phi2) phi1) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 phi1)))))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 phi1 phi1)) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 phi2 phi1))))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) phi1) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 phi1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (*.f64 phi1 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 (*.f64 lambda1 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 (*.f64 lambda1 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) (/.f64 (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) (*.f64 phi1 phi1)))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 lambda2 lambda1) (/.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) (/.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 phi1 phi1)))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 lambda2 lambda1) (/.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 phi1 phi1))) (+.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (+.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 R phi1)) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (*.f64 phi1 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) phi1) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 phi1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (*.f64 phi1 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (*.f64 phi1 phi1)) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 phi2 phi1))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) (/.f64 (fma.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi1 phi1) (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R phi1))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) phi1))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) phi1)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) phi1))) phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi1))) phi1))) phi1)))))) |
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64))))) |
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (/ (+ phi2 phi1) 2) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1)) #s(literal 1/2 binary64))))) |
#s(approx (+ phi2 phi1) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)) #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 #s(literal -1 binary64) (*.f64 R phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) phi1))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) (/.f64 (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) lambda1)) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) phi1)) phi1) (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) lambda1)) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) phi1) (/.f64 (*.f64 R phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) lambda1)) phi1))) phi1) (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) phi1))) phi1) (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) #s(literal 1/2 binary64))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))))) phi1) (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))) phi1) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) phi1)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 R phi2) lambda1))) phi1) (/.f64 R lambda1)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (*.f64 (*.f64 phi1 phi1) (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) phi1) (*.f64 #s(literal 2 binary64) (*.f64 R phi2))) phi1))))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 phi2 phi2) phi1) (*.f64 #s(literal 2 binary64) phi2)) phi1))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) phi1)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) phi1))) phi1)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi1))) phi1))) phi1)))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 (*.f64 lambda1 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) #s(literal -1 binary64)))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) phi1) (/.f64 phi2 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) phi1) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) #s(literal -1 binary64)))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) #s(literal -1 binary64)))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))))) phi1) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) phi1) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) #s(literal -1 binary64)))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) #s(literal -1 binary64)))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))) phi1) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) phi1) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) #s(literal -1 binary64)))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) #s(literal -1 binary64))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) (*.f64 #s(literal 2 binary64) (/.f64 phi2 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))) phi1) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) #s(literal -1 binary64))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) lambda1))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) lambda1)) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 R phi1))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) phi1))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 #s(literal -1 binary64) phi1)) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) phi1))) phi1)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi1))) phi1))) phi1)))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) phi1) (*.f64 #s(literal 2 binary64) phi2)) phi1))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (- phi1 phi2) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))) |
#s(approx (- phi1 phi2) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))) |
#s(approx phi2 phi2) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (fma.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #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 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 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))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/48 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1))) (*.f64 #s(literal -1/48 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (fma.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/48 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1))) (*.f64 #s(literal -1/48 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1)) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 phi2 (fma.f64 #s(literal -1/48 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1))))))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (fma.f64 #s(literal -1/48 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/48 binary64) (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (fma.f64 #s(literal -1/2 binary64) (*.f64 phi2 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 phi2 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 phi2 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 phi2 (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 phi2 (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi2)) lambda1) (/.f64 (*.f64 R (*.f64 phi1 phi1)) lambda1))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (fma.f64 phi2 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 R phi1) lambda1) (/.f64 (*.f64 R phi2) lambda1)) (/.f64 (*.f64 R (*.f64 phi1 phi1)) lambda1))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (fma.f64 #s(literal -2 binary64) (*.f64 R (*.f64 phi1 phi2)) (*.f64 R (*.f64 phi1 phi1)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (fma.f64 R (*.f64 phi1 phi1) (*.f64 phi2 (fma.f64 #s(literal -2 binary64) (*.f64 R phi1) (*.f64 R phi2))))) |
#s(approx (pow (- phi1 phi2) 2) (fma.f64 #s(literal -2 binary64) (*.f64 phi1 phi2) (*.f64 phi1 phi1))) |
#s(approx (pow (- phi1 phi2) 2) (fma.f64 phi2 (+.f64 phi2 (*.f64 #s(literal -2 binary64) phi1)) (*.f64 phi1 phi1))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal -1/48 binary64) (*.f64 R (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 lambda2 (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 lambda2 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal -1/48 binary64) (*.f64 R (*.f64 lambda2 (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 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 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #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 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #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 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (fma.f64 lambda1 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (fma.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 phi2 (fma.f64 lambda1 (*.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) (*.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (fma.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 phi2 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) (*.f64 phi2 (fma.f64 lambda1 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 #s(literal -1/48 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/48 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1))))) (*.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 #s(literal -1/48 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/48 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1))))))))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1)) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 phi2 (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 phi2 (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 #s(literal 1/48 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1))))))))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (fma.f64 phi2 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (fma.f64 phi2 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (fma.f64 phi2 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal -1 binary64))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 lambda1 lambda1)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) (+.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1)) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 lambda2 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 phi2 (fma.f64 #s(literal 1/48 binary64) (/.f64 (*.f64 lambda2 (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1)))))))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1)) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) (fma.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 lambda2 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1))) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) (fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1)) (*.f64 #s(literal -1/48 binary64) (/.f64 (*.f64 lambda2 (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))))) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) lambda1))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/8 binary64) (*.f64 lambda2 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (fma.f64 #s(literal 1/48 binary64) (*.f64 lambda2 (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/8 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (fma.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (fma.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (fma.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 phi2 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) (fma.f64 #s(literal -1 binary64) (*.f64 phi2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) (fma.f64 phi2 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (+.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R phi2)) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (*.f64 phi2 phi2) phi2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) phi2) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 phi2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (*.f64 phi2 phi2) phi2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))))) |
#s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) |
#s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) |
#s(approx (/ (+ phi2 phi1) 2) (*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2))))) |
#s(approx (+ phi2 phi1) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))) |
#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 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (*.f64 phi2 phi2) phi2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 phi2 phi2)) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) (*.f64 phi2 phi2)) (fma.f64 #s(literal 1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 phi2 phi2))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 phi2 phi2)))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (fma.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 phi2 phi2))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) phi2)) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) (*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (+.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 phi2)) (/.f64 R lambda1)))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 phi2)) (/.f64 (fma.f64 R (*.f64 lambda1 (*.f64 phi2 phi2)) (*.f64 lambda1 (*.f64 R (*.f64 phi1 phi1)))) (*.f64 lambda1 (*.f64 lambda1 (*.f64 phi2 phi2))))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (*.f64 (*.f64 phi2 phi2) (+.f64 R (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 R phi1) phi2))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (*.f64 (*.f64 phi2 phi2) (+.f64 R (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 R phi1) phi2) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 phi2 phi2)))))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 phi1 phi2))))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 phi1 phi2) (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) phi2) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 phi2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (*.f64 phi2 phi2) phi2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 (*.f64 lambda1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 (*.f64 lambda1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) (/.f64 (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) (*.f64 phi2 phi2)))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 lambda2 lambda1) (/.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 phi2 phi2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) (/.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 phi2 phi2)))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 lambda2 lambda1) (/.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 phi2 phi2))) (+.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (+.f64 (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 R phi2)) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (*.f64 phi2 phi2) phi2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) phi2) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 phi2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (*.f64 phi2 phi2) phi2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (*.f64 phi2 phi2)) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 phi1 phi2))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 phi1 phi2) (/.f64 (fma.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R phi2))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) phi2))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) phi2)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (*.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) phi2))) phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi2))) phi2))) phi2)))))) |
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)))))) |
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (/ (+ phi2 phi1) 2) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) |
#s(approx (+ phi2 phi1) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)) #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 #s(literal -1 binary64) (*.f64 R phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) phi2))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) (/.f64 (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) lambda1)) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) phi2)) phi2) (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) lambda1)) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) phi2) (/.f64 (*.f64 R phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) lambda1)) phi2))) phi2) (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) phi2))) phi2) (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) #s(literal 1/2 binary64))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))))) phi2) (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))) phi2) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) phi2)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 R phi1) lambda1))) phi2) (/.f64 R lambda1)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (*.f64 (*.f64 phi2 phi2) (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) phi2) (*.f64 #s(literal 2 binary64) (*.f64 R phi1))) phi2))))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 phi1 phi1) phi2) (*.f64 #s(literal 2 binary64) phi1)) phi2))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) |
#s(approx (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) phi2)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (*.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) phi2))) phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi2))) phi2))) phi2)))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 (*.f64 lambda1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal -1 binary64)))))) |
#s(approx (* (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) lambda1) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) phi2) (/.f64 phi1 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) phi2) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal -1 binary64)))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal -1 binary64)))))) |
#s(approx (+ (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))))) phi2) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) phi2) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal -1 binary64)))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal -1 binary64)))))) |
#s(approx (+ (* (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) 1/2) (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))) phi2) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) phi2) (*.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal -1 binary64)))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal -1 binary64))))) |
#s(approx (/ (pow (- phi1 phi2) 2) (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) (*.f64 #s(literal 2 binary64) (/.f64 phi1 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))) phi2) (pow.f64 (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal -1 binary64))))) |
#s(approx (* (* lambda1 lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) |
#s(approx (* (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) lambda1))) |
#s(approx (/ (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (neg lambda1)) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) lambda1)) |
#s(approx (* (* -1 lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 R phi2))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (* R (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) phi2))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 #s(literal -1 binary64) phi2)) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (*.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) phi2))) phi2)))))) |
#s(approx (sqrt (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi2))) phi2))) phi2)))))) |
#s(approx (+ (* (pow (- lambda1 lambda2) 2) (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2)))) (pow (- phi1 phi2) 2)) (*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) phi2) (*.f64 #s(literal 2 binary64) phi1)) phi2))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (cos (/ (+ phi2 phi1) 2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
Compiled 143 947 to 7 533 computations (94.8% saved)
10 alts after pruning (8 fresh and 2 done)
| Pruned | Kept | Total | |
|---|---|---|---|
| New | 1 389 | 7 | 1 396 |
| Fresh | 2 | 1 | 3 |
| Picked | 3 | 2 | 5 |
| Done | 0 | 0 | 0 |
| Total | 1 394 | 10 | 1 404 |
| Status | Accuracy | Program |
|---|---|---|
| ▶ | 83.6% | (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (sin.f64 (+.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) R) |
| ▶ | 90.4% | (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
| 83.3% | (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) | |
| ▶ | 83.6% | (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
| 88.3% | (*.f64 (hypot.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) | |
| ✓ | 57.7% | (*.f64 R (sqrt.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
| ▶ | 48.1% | (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
| ✓ | 18.2% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
| 24.8% | #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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) | |
| ▶ | 37.0% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
Compiled 645 to 432 computations (33% saved)
| Inputs |
|---|
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) |
(-.f64 phi1 phi2) |
phi1 |
phi2 |
#s(literal 1 binary64) |
(*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) |
(cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) |
(/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64)) |
#s(approx (+ phi2 phi1) phi1) |
#s(literal 2 binary64) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
R |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R))) |
(*.f64 #s(literal -1 binary64) lambda1) |
#s(literal -1 binary64) |
(fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)) |
(/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) |
(fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) |
(*.f64 R lambda2) |
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) |
#s(literal 1/2 binary64) |
(+.f64 phi2 phi1) |
(/.f64 (PI.f64) #s(literal 2 binary64)) |
(PI.f64) |
(*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64)) |
(/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) |
(*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) |
(sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) |
#s(literal -1/2 binary64) |
(*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R) |
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(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) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(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) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) |
(*.f64 (-.f64 lambda1 lambda2) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))) |
(neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) |
(/.f64 (+.f64 phi2 phi1) #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 phi1 phi2) #s(literal 2 binary64)) |
(+.f64 phi1 phi2) |
(*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) |
(*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (sin.f64 (+.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) R) |
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (sin.f64 (+.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
(*.f64 (sin.f64 (+.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) |
(sin.f64 (+.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(+.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) |
| Outputs |
|---|
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx R #s(hole binary64 R)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* R (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* R (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (* R (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* R (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R lambda2) #s(hole binary64 (* R lambda2))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (/ (* R (pow (- phi1 phi2) 2)) lambda1))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* R (pow (- phi1 phi2) 2)))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* R (* lambda1 (+ (* -1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (* -1 (/ (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* -1 (* R (+ (* -1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (* -1 (/ (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1 (/ (* R (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) lambda1)))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1 (* R (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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)))))) (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2))) |
#s(approx lambda1 #s(hole binary64 lambda1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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)))))) (* 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))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (+ (* -1 (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) lambda1))) |
#s(approx (* -1 lambda1) #s(hole binary64 (* -1 lambda1))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (/ (+ (* -1 (* R (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow lambda1 2)))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (/ (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (+ (* -1 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (pow lambda1 2)))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (pow lambda1 2)))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -1 (* (* R (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)) 3)))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* -2 (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* -2 (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* -1 (* lambda2 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1)) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* lambda1 (+ (* -1 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* lambda1 (+ (* -1 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* (* R lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* R (pow (- phi1 phi2) 2)) (pow lambda1 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (pow lambda1 3)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (+ (* 1/2 (* (/ (* R (pow (- phi1 phi2) 2)) (pow lambda1 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda1 (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda1 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (* (/ lambda2 lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda1 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (+ (* -1 (* (/ lambda2 lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (* (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda1 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (+ (* -1 (* (/ lambda2 lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* lambda2 (pow (- phi1 phi2) 2)) (pow lambda1 3)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* 1/2 (* (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (+ (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (+ (/ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow lambda1 2)) (/ (pow (- phi1 phi2) 2) (pow lambda1 2)))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (+ (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow lambda1 2))))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* lambda1 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* lambda1 (+ (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda2 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1 (/ (+ (* -1 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* (* R lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (* (/ (* R (pow (- phi1 phi2) 2)) lambda1) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* (* R lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1)) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* (* R (pow (- phi1 phi2) 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* 1/2 (* (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) lambda1) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) lambda1)) (* (* R lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1)) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda1 (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda1 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (* (/ lambda2 lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda1 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (/ (+ (* -1/2 (* (/ (pow (- phi1 phi2) 2) lambda1) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* lambda2 (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda1 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow (- phi1 phi2) 2))) (* 1/2 (* (/ (* lambda2 (pow (- phi1 phi2) 2)) lambda1) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) lambda1)) (* lambda2 (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1)) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (* 2 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1)) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* lambda2 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1)) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1)) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2)))) |
#s(approx lambda2 #s(hole binary64 lambda2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -1 (* (* R (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)) 3)))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* -2 (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -2 (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* -2 (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -2 (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* lambda1 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda2)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2)))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* lambda2 (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* lambda2 (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* (* R lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* R (pow (- phi1 phi2) 2)) (pow lambda2 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (pow lambda2 3)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (+ (* 1/2 (* (/ (* R (pow (- phi1 phi2) 2)) (pow lambda2 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda2 (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda2 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (* (/ lambda1 lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda2 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (+ (* -1 (* (/ lambda1 lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (* (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda2 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (+ (* -1 (* (/ lambda1 lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* lambda1 (pow (- phi1 phi2) 2)) (pow lambda2 3)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* 1/2 (* (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (+ (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (+ (/ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow lambda2 2)) (/ (pow (- phi1 phi2) 2) (pow lambda2 2)))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (+ (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow lambda2 2))))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* lambda2 (+ (* -1 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* lambda1 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+ (* -1 (/ (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+ (* -1 (/ (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ (* -1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (* lambda1 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda2)))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* (* R lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (* (/ (* R (pow (- phi1 phi2) 2)) lambda2) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* (* R lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda2)) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* (* R (pow (- phi1 phi2) 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* 1/2 (* (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) lambda2) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) lambda2)) (* (* R lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda2)) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda2 (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda2 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (* (/ lambda1 lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda2 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (/ (+ (* -1/2 (* (/ (pow (- phi1 phi2) 2) lambda2) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* lambda1 (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda2 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow (- phi1 phi2) 2))) (* 1/2 (* (/ (* lambda1 (pow (- phi1 phi2) 2)) lambda2) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) lambda2)) (* lambda1 (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda2))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda2)) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (* 2 (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda2)) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* -1 (* lambda2 (+ (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2))))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda2)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda2)) (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda2)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* -1 phi2))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (- phi1 phi2))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 phi2))) |
#s(approx (- phi1 phi2) #s(hole binary64 (- phi1 phi2))) |
#s(approx phi1 #s(hole binary64 phi1)) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* 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))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 phi2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole 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)))))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 phi2)))) |
#s(approx (+ phi2 phi1) #s(hole binary64 phi2)) |
#s(approx (+ phi2 phi1) #s(hole binary64 (+ phi1 phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) (* phi1 (+ (* -1 (* lambda1 (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) (* phi1 (+ (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* phi1 (+ (* -1 (* lambda1 (* phi1 (+ (* -1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)))) (* -1/48 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (+ (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (+ (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (+ (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)))) (* -1/48 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* phi1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* phi1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* phi1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* phi1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* phi1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (+ (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* phi1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)))))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (+ (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/48 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* 1/2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* phi1 (+ (* -1/8 (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* phi1 (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1/8 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* -1/48 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi2) (* 1/2 (PI))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (+ (* 1/2 phi2) (* 1/2 (PI)))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (* phi1 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))))) (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (* phi1 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (* phi1 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (* phi1 (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (- (+ (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (- (+ (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (/ (* R (pow phi2 2)) lambda1))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (+ (* -2 (/ (* R (* phi1 phi2)) lambda1)) (/ (* R (pow phi2 2)) lambda1)))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (+ (* phi1 (+ (* -2 (/ (* R phi2) lambda1)) (/ (* R phi1) lambda1))) (/ (* R (pow phi2 2)) lambda1)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* R (pow phi2 2)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (+ (* -2 (* R (* phi1 phi2))) (* R (pow phi2 2))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (+ (* R (pow phi2 2)) (* phi1 (+ (* -2 (* R phi2)) (* R phi1)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (pow phi2 2))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (+ (* -2 (* phi1 phi2)) (pow phi2 2)))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (+ (* phi1 (+ phi1 (* -2 phi2))) (pow phi2 2)))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* 1/2 (* R (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1/8 (* R (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* -1/48 (* R (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* R (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ (* 1/48 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (/ (* (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))) (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (+ (* 1/48 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (/ (* (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* phi1 (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* phi1 (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))))))) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* phi1 (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* 1/48 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))))))))))))) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))))) (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* 1/48 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))))))))))) (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* phi1 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2)))))) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2)))))))) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2))))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (* -1/2 (* phi1 (cos (- (* 1/2 (PI)) (* 1/2 phi2)))))))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (* phi1 (+ (* -1/2 (cos (- (* 1/2 (PI)) (* 1/2 phi2)))) (* -1/8 (* phi1 (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (* phi1 (+ (* -1/2 (cos (- (* 1/2 (PI)) (* 1/2 phi2)))) (* phi1 (+ (* -1/8 (sin (- (* 1/2 (PI)) (* 1/2 phi2)))) (* 1/48 (* phi1 (cos (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) (* 1/2 phi2)))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (- (+ (* -1/2 phi1) (* 1/2 (PI))) (* 1/2 phi2)))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) #s(hole binary64 (* -1/2 phi2))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) #s(hole binary64 (- (* -1/2 phi1) (* 1/2 phi2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* 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))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 phi2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole 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)))))))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 phi2)))) |
#s(approx (+ phi1 phi2) #s(hole binary64 phi2)) |
#s(approx (+ phi1 phi2) #s(hole binary64 (+ phi1 phi2))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (pow phi2 2))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (+ (* -2 (* phi1 phi2)) (pow phi2 2)))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (+ (* phi1 (+ phi1 (* -2 phi2))) (pow phi2 2)))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* 1/2 (* phi1 (cos (* 1/2 (PI)))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1/8 (* phi1 (sin (* 1/2 (PI))))) (* 1/2 (cos (* 1/2 (PI))))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* 1/2 (cos (* 1/2 (PI)))) (* phi1 (+ (* -1/8 (sin (* 1/2 (PI)))) (* -1/48 (* phi1 (cos (* 1/2 (PI)))))))))))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI)))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 (PI))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* R (sqrt (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* R (sqrt (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* -1/8 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* -1/24 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* -1/8 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* -1/24 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2)))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (+ (* phi1 (+ (* -1/8 (* phi1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2)))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2))) (* -1/48 (* phi1 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* 1/2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* phi1 (+ (* -1/8 (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* phi1 (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1/8 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* -1/48 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi2) (* 1/2 (PI))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (+ (* 1/2 phi2) (* 1/2 (PI)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi1))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 phi1)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 phi1)) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (- phi1 phi2) #s(hole binary64 phi1)) |
#s(approx (- phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 (+ phi1 phi2))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 phi1)) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* phi1 (+ 1 (/ phi2 phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* lambda1 (+ (* -1 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow phi1 2))) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (pow phi1 2))) (+ (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (pow phi1 2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (pow phi1 2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow phi1 2)))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1/2 (+ (* 1/2 (/ phi2 phi1)) (* 1/2 (/ (PI) phi1))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (* R (pow phi2 2)) (* lambda1 (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (/ (* R (pow phi1 2)) lambda1))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 phi1))) (/ R lambda1))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 phi1))) (+ (/ R lambda1) (/ (* R (pow phi2 2)) (* lambda1 (pow phi1 2)))))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* R (pow phi1 2)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi1 2) (+ R (* -2 (/ (* R phi2) phi1)))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi1 2) (+ R (+ (* -2 (/ (* R phi2) phi1)) (/ (* R (pow phi2 2)) (pow phi1 2))))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (pow phi1 2))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (/ (pow phi2 2) (pow phi1 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi1 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))))) (pow phi1 3))) (* 1/2 (/ (* R (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi1 2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 phi1)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (pow phi1 2))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- lambda1 lambda2)))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (* -1/2 phi1))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (* phi1 (- (* 1/2 (/ (PI) phi1)) (+ 1/2 (* 1/2 (/ phi2 phi1))))))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) #s(hole binary64 (* -1/2 phi1))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) #s(hole binary64 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 (+ phi1 phi2))))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 phi1)) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (/ phi2 phi1))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (pow phi1 2))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (/ (pow phi2 2) (pow phi1 2))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1/2 (* 1/2 (/ (PI) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi1))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 phi1)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- lambda1 lambda2)))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1/2 (+ (* 1/2 (/ phi2 phi1)) (* 1/2 (/ (PI) phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi1))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* -1 (* phi1 (- (/ phi2 phi1) 1))))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (/ phi2 phi1) 1))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* lambda1 (+ (* -1 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) phi1)) phi1)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) phi1)) (/ (* R phi2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) phi1)) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) lambda1)) phi1))) phi1)) (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) phi1))) phi1)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ (* 1/2 phi2) (* 1/2 (PI))) phi1)) 1/2))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (* 1/2 (/ (* R (pow phi2 2)) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) phi1)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R (pow phi2 2)) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* 2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) phi1)) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R (pow phi2 2)) (* lambda1 phi1))) (* 2 (/ (* R phi2) lambda1))) phi1)) (/ R lambda1))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi1 2) (+ R (* -1 (/ (+ (* -1 (/ (* R (pow phi2 2)) phi1)) (* 2 (* R phi2))) phi1)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow phi2 2) phi1)) (* 2 phi2)) phi1)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2)))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2))))) (* 1/2 (/ (* R (* phi2 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2))))) phi1))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 phi1))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2))) phi1))) phi1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* phi2 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2)))) phi1))) phi1))) phi1))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)) phi1)) (* 2 phi2)) phi1)))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (- lambda1 lambda2)))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (+ 1/2 (* -1 (/ (- (* 1/2 (PI)) (* 1/2 phi2)) phi1))))))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) #s(hole binary64 (* -1 (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow phi2 2) phi1)) (* 2 phi2)) phi1)))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1/2 phi1))))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1/2))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi1))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (- lambda1 lambda2)))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ (* 1/2 phi2) (* 1/2 (PI))) phi1)) 1/2))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (+ phi1 (* -1 phi2)))) |
#s(approx (- phi1 phi2) #s(hole binary64 (+ phi1 (* -1 phi2)))) |
#s(approx phi2 #s(hole binary64 phi2)) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole 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))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole 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))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 phi1)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole 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)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) (* phi2 (+ (* -1 (* lambda1 (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) (* phi2 (+ (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* phi2 (+ (* -1 (* lambda1 (* phi2 (+ (* -1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)))) (* -1/48 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (+ (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (+ (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (+ (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)))) (* -1/48 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* phi2 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* phi2 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* phi2 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* phi2 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* phi2 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (+ (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* phi2 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)))))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (+ (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/48 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* 1/2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* phi2 (+ (* -1/8 (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* phi2 (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1/8 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* -1/48 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 (PI))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (* phi2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))))) (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (* phi2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (* phi2 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (* phi2 (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (- (+ (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (- (+ (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (- (+ (* -1 (* phi2 (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (+ (* -2 (/ (* R (* phi1 phi2)) lambda1)) (/ (* R (pow phi1 2)) lambda1)))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (+ (* phi2 (+ (* -2 (/ (* R phi1) lambda1)) (/ (* R phi2) lambda1))) (/ (* R (pow phi1 2)) lambda1)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (+ (* -2 (* R (* phi1 phi2))) (* R (pow phi1 2))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (+ (* R (pow phi1 2)) (* phi2 (+ (* -2 (* R phi1)) (* R phi2)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (+ (* -2 (* phi1 phi2)) (pow phi1 2)))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (+ (* phi2 (+ phi2 (* -2 phi1))) (pow phi1 2)))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* 1/2 (* R (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1/8 (* R (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* -1/48 (* R (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* R (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ (* 1/48 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (/ (* (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))) (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/48 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (/ (* (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* phi2 (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))))) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* phi2 (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))))))) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* phi2 (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* 1/48 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))))))))))))) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))))) (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* 1/48 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))))))))))) (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* phi2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2)))))) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2)))))))) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2))))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (* -1/2 (* phi2 (cos (- (* 1/2 (PI)) (* 1/2 phi1)))))))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (- (* 1/2 (PI)) (* 1/2 phi1)))) (* -1/8 (* phi2 (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (- (* 1/2 (PI)) (* 1/2 phi1)))) (* phi2 (+ (* -1/8 (sin (- (* 1/2 (PI)) (* 1/2 phi1)))) (* 1/48 (* phi2 (cos (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) (* 1/2 phi1)))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (- (+ (* -1/2 phi2) (* 1/2 (PI))) (* 1/2 phi1)))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) #s(hole binary64 (- (* -1/2 phi2) (* 1/2 phi1)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole 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))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole 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))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 phi1)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole 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)))))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (+ (* -2 (* phi1 phi2)) (pow phi1 2)))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (+ (* phi2 (+ phi2 (* -2 phi1))) (pow phi1 2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* R (sqrt (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* R (sqrt (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* -1/8 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* -1/24 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* -1/8 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* -1/24 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2)))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (+ (* phi2 (+ (* -1/8 (* phi2 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2)))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2))) (* -1/48 (* phi2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* 1/2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* phi2 (+ (* -1/8 (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* phi2 (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1/8 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* -1/48 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 (PI))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi2))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 phi2)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* phi2 (- (/ phi1 phi2) 1)))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* phi2 (- (/ phi1 phi2) 1)))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* phi2 (+ 1 (/ phi1 phi2))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (* lambda1 (+ (* -1 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow phi2 2))) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (pow phi2 2))) (+ (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (pow phi2 2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (pow phi2 2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow phi2 2)))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1/2 (+ (* 1/2 (/ phi1 phi2)) (* 1/2 (/ (PI) phi2))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (* R (pow phi1 2)) (* lambda1 (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 phi2))) (/ R lambda1))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 phi2))) (+ (/ R lambda1) (/ (* R (pow phi1 2)) (* lambda1 (pow phi2 2)))))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi2 2) (+ R (* -2 (/ (* R phi1) phi2)))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi2 2) (+ R (+ (* -2 (/ (* R phi1) phi2)) (/ (* R (pow phi1 2)) (pow phi2 2))))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (/ (pow phi1 2) (pow phi2 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi2 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))))) (pow phi2 3))) (* 1/2 (/ (* R (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi2 2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 phi2)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (pow phi2 2))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2)))))))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (* -1/2 phi2))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (* phi2 (- (* 1/2 (/ (PI) phi2)) (+ 1/2 (* 1/2 (/ phi1 phi2))))))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) #s(hole binary64 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi2 (+ 1 (/ phi1 phi2))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (/ (pow phi1 2) (pow phi2 2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi2))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 phi2)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1/2 (+ (* 1/2 (/ phi1 phi2)) (* 1/2 (/ (PI) phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi2))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* lambda1 (+ (* -1 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) phi2)) phi2)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) phi2)) (/ (* R phi1) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) phi2)) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi1) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) lambda1)) phi2))) phi2)) (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) phi2))) phi2)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ (* 1/2 phi1) (* 1/2 (PI))) phi2)) 1/2))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (* 1/2 (/ (* R (pow phi1 2)) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) phi2)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R (pow phi1 2)) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* 2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) phi2)) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R (pow phi1 2)) (* lambda1 phi2))) (* 2 (/ (* R phi1) lambda1))) phi2)) (/ R lambda1))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi2 2) (+ R (* -1 (/ (+ (* -1 (/ (* R (pow phi1 2)) phi2)) (* 2 (* R phi1))) phi2)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow phi1 2) phi2)) (* 2 phi1)) phi2)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2)))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2))))) (* 1/2 (/ (* R (* phi1 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2))))) phi2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 phi2))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2))) phi2))) phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* phi1 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2)))) phi2))) phi2))) phi2))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)) phi2)) (* 2 phi1)) phi2)))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (- lambda1 lambda2)))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (+ 1/2 (* -1 (/ (- (* 1/2 (PI)) (* 1/2 phi1)) phi2))))))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) #s(hole binary64 (* -1 (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow phi1 2) phi2)) (* 2 phi1)) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi2))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (- lambda1 lambda2)))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ (* 1/2 phi1) (* 1/2 (PI))) phi2)) 1/2))))) |
15 calls:
| Time | Variable | Point | Expression | |
|---|---|---|---|---|
| 18.0ms | lambda2 | @ | 0 | ((* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow (- phi1 phi2) 1) (- phi1 phi2) phi1 phi2 1 (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (+ phi2 phi1) 2 (- lambda1 lambda2) lambda1 lambda2 R (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (* -1 lambda1) -1 (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) 1/2 (+ phi2 phi1) (/ (PI) 2) (PI) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (/ (* (pow (- phi1 phi2) 2) R) lambda1) (* (pow (- phi1 phi2) 2) R) (pow (- phi1 phi2) 2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) -1/2 (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) (neg (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (cos (/ (+ phi1 phi2) 2)) (/ (+ phi1 phi2) 2) (+ phi1 phi2) (* (- phi1 phi2) (- phi1 phi2)) (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+ (* 1/2 phi1) (/ (PI) 2)) (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) |
| 17.0ms | phi2 | @ | 0 | ((* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow (- phi1 phi2) 1) (- phi1 phi2) phi1 phi2 1 (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (+ phi2 phi1) 2 (- lambda1 lambda2) lambda1 lambda2 R (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (* -1 lambda1) -1 (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) 1/2 (+ phi2 phi1) (/ (PI) 2) (PI) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (/ (* (pow (- phi1 phi2) 2) R) lambda1) (* (pow (- phi1 phi2) 2) R) (pow (- phi1 phi2) 2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) -1/2 (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) (neg (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (cos (/ (+ phi1 phi2) 2)) (/ (+ phi1 phi2) 2) (+ phi1 phi2) (* (- phi1 phi2) (- phi1 phi2)) (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+ (* 1/2 phi1) (/ (PI) 2)) (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) |
| 16.0ms | phi1 | @ | 0 | ((* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow (- phi1 phi2) 1) (- phi1 phi2) phi1 phi2 1 (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (+ phi2 phi1) 2 (- lambda1 lambda2) lambda1 lambda2 R (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (* -1 lambda1) -1 (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) 1/2 (+ phi2 phi1) (/ (PI) 2) (PI) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (/ (* (pow (- phi1 phi2) 2) R) lambda1) (* (pow (- phi1 phi2) 2) R) (pow (- phi1 phi2) 2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) -1/2 (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) (neg (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (cos (/ (+ phi1 phi2) 2)) (/ (+ phi1 phi2) 2) (+ phi1 phi2) (* (- phi1 phi2) (- phi1 phi2)) (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+ (* 1/2 phi1) (/ (PI) 2)) (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) |
| 13.0ms | lambda1 | @ | 0 | ((* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow (- phi1 phi2) 1) (- phi1 phi2) phi1 phi2 1 (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (+ phi2 phi1) 2 (- lambda1 lambda2) lambda1 lambda2 R (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (* -1 lambda1) -1 (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) 1/2 (+ phi2 phi1) (/ (PI) 2) (PI) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (/ (* (pow (- phi1 phi2) 2) R) lambda1) (* (pow (- phi1 phi2) 2) R) (pow (- phi1 phi2) 2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) -1/2 (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) (neg (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (cos (/ (+ phi1 phi2) 2)) (/ (+ phi1 phi2) 2) (+ phi1 phi2) (* (- phi1 phi2) (- phi1 phi2)) (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+ (* 1/2 phi1) (/ (PI) 2)) (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) |
| 9.0ms | R | @ | -inf | ((* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow (- phi1 phi2) 1) (- phi1 phi2) phi1 phi2 1 (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (+ phi2 phi1) 2 (- lambda1 lambda2) lambda1 lambda2 R (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (* -1 lambda1) -1 (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) 1/2 (+ phi2 phi1) (/ (PI) 2) (PI) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (/ (* (pow (- phi1 phi2) 2) R) lambda1) (* (pow (- phi1 phi2) 2) R) (pow (- phi1 phi2) 2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) -1/2 (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) (neg (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (cos (/ (+ phi1 phi2) 2)) (/ (+ phi1 phi2) 2) (+ phi1 phi2) (* (- phi1 phi2) (- phi1 phi2)) (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+ (* 1/2 phi1) (/ (PI) 2)) (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 4213 | 71836 |
| 0 | 4313 | 65398 |
| 0 | 13217 | 62183 |
| 1× | iter limit |
| 1× | node limit |
| 1× | iter limit |
| Inputs |
|---|
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) |
(-.f64 phi1 phi2) |
phi1 |
phi2 |
#s(literal 1 binary64) |
(*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) |
(cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) |
(/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64)) |
#s(approx (+ phi2 phi1) phi1) |
#s(literal 2 binary64) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
R |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R))) |
(*.f64 #s(literal -1 binary64) lambda1) |
#s(literal -1 binary64) |
(fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)) |
(/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) |
(fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) |
(*.f64 R lambda2) |
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) |
#s(literal 1/2 binary64) |
(+.f64 phi2 phi1) |
(/.f64 (PI.f64) #s(literal 2 binary64)) |
(PI.f64) |
(*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64)) |
(/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) |
(*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) |
(sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) |
#s(literal -1/2 binary64) |
(*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R) |
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(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) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(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) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) |
(*.f64 (-.f64 lambda1 lambda2) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))) |
(neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) |
(/.f64 (+.f64 phi2 phi1) #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 phi1 phi2) #s(literal 2 binary64)) |
(+.f64 phi1 phi2) |
(*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) |
(*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (sin.f64 (+.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) R) |
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (sin.f64 (+.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
(*.f64 (sin.f64 (+.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) |
(sin.f64 (+.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(+.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx R #s(hole binary64 R)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* R (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* R (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (* R (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* R (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R lambda2) #s(hole binary64 (* R lambda2))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (/ (* R (pow (- phi1 phi2) 2)) lambda1))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* R (pow (- phi1 phi2) 2)))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* R (* lambda1 (+ (* -1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (* -1 (/ (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* -1 (* R (+ (* -1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (* -1 (/ (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1 (/ (* R (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) lambda1)))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1 (* R (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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)))))) (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2))) |
#s(approx lambda1 #s(hole binary64 lambda1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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)))))) (* 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))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (+ (* -1 (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) lambda1))) |
#s(approx (* -1 lambda1) #s(hole binary64 (* -1 lambda1))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (/ (+ (* -1 (* R (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow lambda1 2)))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (/ (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (+ (* -1 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (pow lambda1 2)))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (pow lambda1 2)))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -1 (* (* R (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)) 3)))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* -2 (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* -2 (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* -1 (* lambda2 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1)) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* lambda1 (+ (* -1 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* lambda1 (+ (* -1 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* (* R lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* R (pow (- phi1 phi2) 2)) (pow lambda1 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (pow lambda1 3)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (+ (* 1/2 (* (/ (* R (pow (- phi1 phi2) 2)) (pow lambda1 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda1 (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda1 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (* (/ lambda2 lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda1 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (+ (* -1 (* (/ lambda2 lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (* (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda1 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (+ (* -1 (* (/ lambda2 lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* lambda2 (pow (- phi1 phi2) 2)) (pow lambda1 3)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* 1/2 (* (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (+ (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (+ (/ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow lambda1 2)) (/ (pow (- phi1 phi2) 2) (pow lambda1 2)))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (+ (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow lambda1 2))))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* lambda1 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* lambda1 (+ (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda2 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+ (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1 (/ (+ (* -1 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* (* R lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (* (/ (* R (pow (- phi1 phi2) 2)) lambda1) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* (* R lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1)) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* (* R (pow (- phi1 phi2) 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* 1/2 (* (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) lambda1) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) lambda1)) (* (* R lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1)) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda1 (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda1 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (* (/ lambda2 lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda1 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (/ (+ (* -1/2 (* (/ (pow (- phi1 phi2) 2) lambda1) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* lambda2 (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda1 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow (- phi1 phi2) 2))) (* 1/2 (* (/ (* lambda2 (pow (- phi1 phi2) 2)) lambda1) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) lambda1)) (* lambda2 (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1)) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (* 2 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1)) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* lambda2 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1)) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda1)) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2)))) |
#s(approx lambda2 #s(hole binary64 lambda2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -1 (* (* R (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)) 3)))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* -2 (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -2 (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* -2 (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -2 (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (- (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (/ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 4)) (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* lambda1 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda2)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* -1 (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2)))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* lambda2 (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* lambda2 (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* (* R lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* R (pow (- phi1 phi2) 2)) (pow lambda2 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (pow lambda2 3)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (+ (* 1/2 (* (/ (* R (pow (- phi1 phi2) 2)) (pow lambda2 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda2 (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda2 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (* (/ lambda1 lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda2 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (+ (* -1 (* (/ lambda1 lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (* (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* lambda2 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (+ (* -1 (* (/ lambda1 lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* lambda1 (pow (- phi1 phi2) 2)) (pow lambda2 3)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* 1/2 (* (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (+ (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (+ (/ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow lambda2 2)) (/ (pow (- phi1 phi2) 2) (pow lambda2 2)))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (+ (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow lambda2 2))))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* lambda2 (+ (* -1 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* lambda1 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+ (* -1 (/ (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+ (* -1 (/ (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ (* -1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (* lambda1 (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda2)))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda1)) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* (* R lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (* (/ (* R (pow (- phi1 phi2) 2)) lambda2) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* (* R lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda2)) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* (* R (pow (- phi1 phi2) 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* 1/2 (* (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) lambda2) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) lambda2)) (* (* R lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda2)) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda2 (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda2 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (* (/ lambda1 lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda2 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (/ (+ (* -1/2 (* (/ (pow (- phi1 phi2) 2) lambda2) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* lambda1 (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* lambda2 (+ (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow (- phi1 phi2) 2))) (* 1/2 (* (/ (* lambda1 (pow (- phi1 phi2) 2)) lambda2) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) lambda2)) (* lambda1 (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda2))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda2)) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (* 2 (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda2)) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* -1 (* lambda2 (+ (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2))))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda2)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda2)) (* R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda2)) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) lambda2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda2))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) lambda2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* -1 phi2))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (- phi1 phi2))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 phi2))) |
#s(approx (- phi1 phi2) #s(hole binary64 (- phi1 phi2))) |
#s(approx phi1 #s(hole binary64 phi1)) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* 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))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 phi2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole 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)))))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 phi2)))) |
#s(approx (+ phi2 phi1) #s(hole binary64 phi2)) |
#s(approx (+ phi2 phi1) #s(hole binary64 (+ phi1 phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) (* phi1 (+ (* -1 (* lambda1 (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) (* phi1 (+ (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* phi1 (+ (* -1 (* lambda1 (* phi1 (+ (* -1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)))) (* -1/48 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (+ (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (+ (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (+ (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)))) (* -1/48 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) lambda1))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* phi1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* phi1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* phi1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* phi1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* phi1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)) (+ (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* phi1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) lambda1)))))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (+ (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/48 (* R (* lambda2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* 1/2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* phi1 (+ (* -1/8 (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* phi1 (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1/8 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* -1/48 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi2) (* 1/2 (PI))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (+ (* 1/2 phi2) (* 1/2 (PI)))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (* phi1 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))))) (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (* phi1 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (* phi1 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (* phi1 (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (- (+ (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (- (+ (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/8 (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (/ R (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (+ (* -1/8 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- (* -2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) (* 1/2 (/ (* R (* (pow phi2 2) (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (/ (* R (pow phi2 2)) lambda1))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (+ (* -2 (/ (* R (* phi1 phi2)) lambda1)) (/ (* R (pow phi2 2)) lambda1)))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (+ (* phi1 (+ (* -2 (/ (* R phi2) lambda1)) (/ (* R phi1) lambda1))) (/ (* R (pow phi2 2)) lambda1)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* R (pow phi2 2)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (+ (* -2 (* R (* phi1 phi2))) (* R (pow phi2 2))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (+ (* R (pow phi2 2)) (* phi1 (+ (* -2 (* R phi2)) (* R phi1)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (pow phi2 2))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (+ (* -2 (* phi1 phi2)) (pow phi2 2)))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (+ (* phi1 (+ phi1 (* -2 phi2))) (pow phi2 2)))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* 1/2 (* R (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1/8 (* R (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* 1/2 (* R (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* phi1 (+ (* -1/8 (* R (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* -1/48 (* R (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* R (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ (* 1/48 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (/ (* (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))) (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (+ (* 1/48 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (/ (* (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* phi1 (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* phi1 (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))))))) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* phi1 (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* 1/48 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))))))))))))) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))))) (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* 1/48 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))))))))))) (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* phi1 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2)))))) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2)))))))) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (- lambda1 lambda2))))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (* -1/2 (* phi1 (cos (- (* 1/2 (PI)) (* 1/2 phi2)))))))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (* phi1 (+ (* -1/2 (cos (- (* 1/2 (PI)) (* 1/2 phi2)))) (* -1/8 (* phi1 (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (* phi1 (+ (* -1/2 (cos (- (* 1/2 (PI)) (* 1/2 phi2)))) (* phi1 (+ (* -1/8 (sin (- (* 1/2 (PI)) (* 1/2 phi2)))) (* 1/48 (* phi1 (cos (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) (* 1/2 phi2)))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (- (+ (* -1/2 phi1) (* 1/2 (PI))) (* 1/2 phi2)))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) #s(hole binary64 (* -1/2 phi2))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) #s(hole binary64 (- (* -1/2 phi1) (* 1/2 phi2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* 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))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 phi2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole 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)))))))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 phi2)))) |
#s(approx (+ phi1 phi2) #s(hole binary64 phi2)) |
#s(approx (+ phi1 phi2) #s(hole binary64 (+ phi1 phi2))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (pow phi2 2))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (+ (* -2 (* phi1 phi2)) (pow phi2 2)))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (+ (* phi1 (+ phi1 (* -2 phi2))) (pow phi2 2)))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* 1/2 (* phi1 (cos (* 1/2 (PI)))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1/8 (* phi1 (sin (* 1/2 (PI))))) (* 1/2 (cos (* 1/2 (PI))))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* 1/2 (cos (* 1/2 (PI)))) (* phi1 (+ (* -1/8 (sin (* 1/2 (PI)))) (* -1/48 (* phi1 (cos (* 1/2 (PI)))))))))))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI)))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 (PI))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* R (sqrt (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* R (sqrt (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* -1/8 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* -1/24 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* -1/8 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* -1/24 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2)))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2)))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (+ (* phi1 (+ (* -1/8 (* phi1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2)))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2))) (* -1/48 (* phi1 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (- lambda1 lambda2))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* 1/2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* phi1 (+ (* -1/8 (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* phi1 (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1/8 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* -1/48 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi2) (* 1/2 (PI))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (+ (* 1/2 phi2) (* 1/2 (PI)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi1))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 phi1)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 phi1)) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (- phi1 phi2) #s(hole binary64 phi1)) |
#s(approx (- phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 (+ phi1 phi2))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 phi1)) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* phi1 (+ 1 (/ phi2 phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* lambda1 (+ (* -1 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow phi1 2))) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (pow phi1 2))) (+ (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (pow phi1 2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (pow phi1 2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow phi1 2)))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1/2 (+ (* 1/2 (/ phi2 phi1)) (* 1/2 (/ (PI) phi1))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (* R (pow phi2 2)) (* lambda1 (* (pow phi1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (/ (* R (pow phi1 2)) lambda1))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 phi1))) (/ R lambda1))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 phi1))) (+ (/ R lambda1) (/ (* R (pow phi2 2)) (* lambda1 (pow phi1 2)))))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* R (pow phi1 2)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi1 2) (+ R (* -2 (/ (* R phi2) phi1)))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi1 2) (+ R (+ (* -2 (/ (* R phi2) phi1)) (/ (* R (pow phi2 2)) (pow phi1 2))))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (pow phi1 2))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (/ (pow phi2 2) (pow phi1 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi1 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))))) (pow phi1 3))) (* 1/2 (/ (* R (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi1 2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 phi1)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (pow phi1 2))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- lambda1 lambda2)))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (* -1/2 phi1))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (* phi1 (- (* 1/2 (/ (PI) phi1)) (+ 1/2 (* 1/2 (/ phi2 phi1))))))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) #s(hole binary64 (* -1/2 phi1))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) #s(hole binary64 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 (+ phi1 phi2))))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 phi1)) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (/ phi2 phi1))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (pow phi1 2))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (/ (pow phi2 2) (pow phi1 2))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1/2 (* 1/2 (/ (PI) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi1))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 phi1)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- lambda1 lambda2)))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1/2 (+ (* 1/2 (/ phi2 phi1)) (* 1/2 (/ (PI) phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi1))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* -1 (* phi1 (- (/ phi2 phi1) 1))))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (/ phi2 phi1) 1))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* lambda1 (+ (* -1 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) phi1)) phi1)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) phi1)) (/ (* R phi2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) phi1)) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R phi2) (* (pow lambda1 2) (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi2) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) lambda1)) phi1))) phi1)) (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (* -1 (/ (+ (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) phi1))) phi1)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ (* 1/2 phi2) (* 1/2 (PI))) phi1)) 1/2))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) (* 1/2 (/ (* R (pow phi2 2)) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) phi1)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -2 (/ (* R phi2) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R (pow phi2 2)) (* lambda1 (* phi1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* 2 (/ (* R phi2) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) phi1)) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (* R (pow phi2 2)) (* lambda1 phi1))) (* 2 (/ (* R phi2) lambda1))) phi1)) (/ R lambda1))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi1 2) (+ R (* -1 (/ (+ (* -1 (/ (* R (pow phi2 2)) phi1)) (* 2 (* R phi2))) phi1)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow phi2 2) phi1)) (* 2 phi2)) phi1)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2)))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2))))) (* 1/2 (/ (* R (* phi2 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2))))) phi1))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 phi1))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2))) phi1))) phi1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* phi2 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2)))) phi1))) phi1))) phi1))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)) phi1)) (* 2 phi2)) phi1)))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (- lambda1 lambda2)))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (+ 1/2 (* -1 (/ (- (* 1/2 (PI)) (* 1/2 phi2)) phi1))))))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) #s(hole binary64 (* -1 (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow phi2 2) phi1)) (* 2 phi2)) phi1)))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1/2 phi1))))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1/2))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi1))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (- lambda1 lambda2)))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ (* 1/2 phi2) (* 1/2 (PI))) phi1)) 1/2))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (+ phi1 (* -1 phi2)))) |
#s(approx (- phi1 phi2) #s(hole binary64 (+ phi1 (* -1 phi2)))) |
#s(approx phi2 #s(hole binary64 phi2)) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole 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))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole 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))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 phi1)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole 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)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) (* phi2 (+ (* -1 (* lambda1 (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) (* phi2 (+ (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* phi2 (+ (* -1 (* lambda1 (* phi2 (+ (* -1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)))) (* -1/48 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* -1 (* lambda1 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (+ (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1)) (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (+ (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (+ (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)))) (* -1/48 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) lambda1))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* phi2 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* phi2 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* phi2 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* phi2 (+ (* -1/2 (/ (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* phi2 (+ (* -1/2 (/ (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)) (+ (* -1/8 (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* phi2 (+ (* -1/48 (/ (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1)) (* 1/2 (/ (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) lambda1)))))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) lambda1))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* 1/2 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (+ (* -1/8 (* R (* lambda2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/48 (* R (* lambda2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* 1/2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* phi2 (+ (* -1/8 (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* phi2 (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1/8 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* -1/48 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 (PI))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (* phi2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))))) (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (* phi2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (* phi2 (+ (* -1/2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (* phi2 (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (- (+ (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (- (+ (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* phi2 (- (+ (* -1 (* phi2 (+ (* -1/8 (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (+ (* -1/48 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (/ R (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (+ (* -1/8 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- (* -2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) (* 1/2 (/ (* R (* (pow phi1 2) (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* lambda1 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)))))) (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (+ (* -2 (/ (* R (* phi1 phi2)) lambda1)) (/ (* R (pow phi1 2)) lambda1)))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (+ (* phi2 (+ (* -2 (/ (* R phi1) lambda1)) (/ (* R phi2) lambda1))) (/ (* R (pow phi1 2)) lambda1)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (+ (* -2 (* R (* phi1 phi2))) (* R (pow phi1 2))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (+ (* R (pow phi1 2)) (* phi2 (+ (* -2 (* R phi1)) (* R phi2)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (+ (* -2 (* phi1 phi2)) (pow phi1 2)))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (+ (* phi2 (+ phi2 (* -2 phi1))) (pow phi1 2)))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* 1/2 (* R (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1/8 (* R (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (+ (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* 1/2 (* R (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* phi2 (+ (* -1/8 (* R (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* -1/48 (* R (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* R (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ (* 1/48 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (/ (* (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (+ (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))) (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/48 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (/ (* (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* phi2 (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))))) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* phi2 (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))))))) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (+ (* phi2 (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* 1/48 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))))))))))))) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))))) (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* 1/48 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))))))))))) (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* phi2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2)))))) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2)))))))) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (- lambda1 lambda2))))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (* -1/2 (* phi2 (cos (- (* 1/2 (PI)) (* 1/2 phi1)))))))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (- (* 1/2 (PI)) (* 1/2 phi1)))) (* -1/8 (* phi2 (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (- (* 1/2 (PI)) (* 1/2 phi1)))) (* phi2 (+ (* -1/8 (sin (- (* 1/2 (PI)) (* 1/2 phi1)))) (* 1/48 (* phi2 (cos (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) (* 1/2 phi1)))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (- (+ (* -1/2 phi2) (* 1/2 (PI))) (* 1/2 phi1)))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) #s(hole binary64 (- (* -1/2 phi2) (* 1/2 phi1)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole 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))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole 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))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 phi1)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole 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)))))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (+ (* -2 (* phi1 phi2)) (pow phi1 2)))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (+ (* phi2 (+ phi2 (* -2 phi1))) (pow phi1 2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* R (sqrt (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* R (sqrt (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* -1/8 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* -1/24 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (+ (sqrt (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* -1/8 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* -1/24 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) (- (+ 1 (* (+ (* -1/4 (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2)) (* 1/4 (pow (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (pow (- lambda1 lambda2) 2)))) 2) (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2)))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2)))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (+ (* phi2 (+ (* -1/8 (* phi2 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2)))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2))) (* -1/48 (* phi2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (- lambda1 lambda2))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* 1/2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* phi2 (+ (* -1/8 (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* phi2 (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1/8 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* -1/48 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 (PI))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi2))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 phi2)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* phi2 (- (/ phi1 phi2) 1)))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* phi2 (- (/ phi1 phi2) 1)))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* phi2 (+ 1 (/ phi1 phi2))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (* lambda1 (+ (* -1 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (pow phi2 2))) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) lambda1)) (pow phi2 2))) (+ (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (pow phi2 2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* lambda1 (pow phi2 2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow phi2 2)))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1/2 (+ (* 1/2 (/ phi1 phi2)) (* 1/2 (/ (PI) phi2))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (/ (* R (pow phi1 2)) (* lambda1 (* (pow phi2 2) (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 phi2))) (/ R lambda1))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 phi2))) (+ (/ R lambda1) (/ (* R (pow phi1 2)) (* lambda1 (pow phi2 2)))))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi2 2) (+ R (* -2 (/ (* R phi1) phi2)))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi2 2) (+ R (+ (* -2 (/ (* R phi1) phi2)) (/ (* R (pow phi1 2)) (pow phi2 2))))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (/ (pow phi1 2) (pow phi2 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi2 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))))) (pow phi2 3))) (* 1/2 (/ (* R (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi2 2))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 phi2)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (pow phi2 2))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2)))))))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (* -1/2 phi2))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (* phi2 (- (* 1/2 (/ (PI) phi2)) (+ 1/2 (* 1/2 (/ phi1 phi2))))))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) #s(hole binary64 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi2 (+ 1 (/ phi1 phi2))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (/ (pow phi1 2) (pow phi2 2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi2))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 phi2)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1/2 (+ (* 1/2 (/ phi1 phi2)) (* 1/2 (/ (PI) phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi2))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* lambda1 (+ (* -1 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) phi2)) phi2)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* 1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) lambda1))) (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) phi2)) (/ (* R phi1) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) phi2)) (* 1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R phi1) (* (pow lambda1 2) (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi1) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) lambda1)) phi2))) phi2)) (* -1/2 (/ R (* (pow lambda1 2) (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (* -1 (/ (+ (* -1/2 (/ (* R (pow phi1 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (* R (* lambda2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) phi2))) phi2)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ (* 1/2 phi1) (* 1/2 (PI))) phi2)) 1/2))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* -1/2 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) (* 1/2 (/ (* R (pow phi1 2)) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) phi2)) (* -1/2 (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (/ (* R (pow phi2 2)) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -2 (/ (* R phi1) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R (pow phi1 2)) (* lambda1 (* phi2 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* 2 (/ (* R phi1) (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) phi2)) (/ R (* lambda1 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) #s(hole binary64 (* (pow phi2 2) (+ (* -1 (/ (+ (* -1 (/ (* R (pow phi1 2)) (* lambda1 phi2))) (* 2 (/ (* R phi1) lambda1))) phi2)) (/ R lambda1))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) #s(hole binary64 (* (pow phi2 2) (+ R (* -1 (/ (+ (* -1 (/ (* R (pow phi1 2)) phi2)) (* 2 (* R phi1))) phi2)))))) |
#s(approx (pow (- phi1 phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow phi1 2) phi2)) (* 2 phi1)) phi2)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) #s(hole binary64 (* R (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2)))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2))))) (* 1/2 (/ (* R (* phi1 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2))))) phi2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 phi2))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2))) phi2))) phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* phi1 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2)))) phi2))) phi2))) phi2))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)) phi2)) (* 2 phi1)) phi2)))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) #s(hole binary64 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) #s(hole binary64 (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (- lambda1 lambda2)))) |
#s(approx (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (+ 1/2 (* -1 (/ (- (* 1/2 (PI)) (* 1/2 phi1)) phi2))))))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) #s(hole binary64 (* -1 (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) #s(hole binary64 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) #s(hole binary64 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
#s(approx (/ (+ phi1 phi2) 2) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1))))) |
#s(approx (* (- phi1 phi2) (- phi1 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow phi1 2) phi2)) (* 2 phi1)) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi2))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) #s(hole binary64 (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (- lambda1 lambda2)))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ (* 1/2 phi1) (* 1/2 (PI))) phi2)) 1/2))))) |
| Outputs |
|---|
(*.f64 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(pow.f64 (fma.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64)) |
(sqrt.f64 (fma.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (fabs.f64 (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (neg.f64 (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (fabs.f64 (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(hypot.f64 (-.f64 phi1 phi2) (neg.f64 (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (-.f64 phi1 phi2) (fabs.f64 (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) |
(-.f64 phi1 phi2) |
(exp.f64 (*.f64 (log.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64))) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) |
(-.f64 phi1 phi2) |
(exp.f64 (*.f64 (log.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64))) |
phi1 |
phi2 |
#s(literal 1 binary64) |
(*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) |
(sin.f64 (+.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(cos.f64 (neg.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64)))) |
(cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) |
(/.f64 (neg.f64 #s(approx (+ phi2 phi1) phi1)) #s(literal -2 binary64)) |
(/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64)) |
#s(approx (+ phi2 phi1) phi1) |
#s(literal 2 binary64) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
R |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
(*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R))) |
(*.f64 #s(literal -1 binary64) lambda1) |
#s(literal -1 binary64) |
(/.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64)) (*.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64))) (-.f64 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R))))) |
(fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)) |
(+.f64 (*.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)) |
(/.f64 (neg.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64)))) (neg.f64 lambda1)) |
(/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) |
(+.f64 (/.f64 (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1) (/.f64 (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64)) lambda1)) |
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64)) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) (*.f64 (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64)))))) |
(fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) |
(+.f64 (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) |
(*.f64 R lambda2) |
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) |
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)) #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
(fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) |
(+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))) |
#s(literal 1/2 binary64) |
(/.f64 (fma.f64 (*.f64 phi2 phi2) phi2 (*.f64 (*.f64 phi1 phi1) phi1)) (+.f64 (*.f64 phi2 phi2) (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi1)))) |
(+.f64 phi2 phi1) |
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64)) |
(/.f64 (PI.f64) #s(literal 2 binary64)) |
(PI.f64) |
(*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64)) |
(/.f64 (neg.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1)) (neg.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
(/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(/.f64 (neg.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R)) (neg.f64 lambda1)) |
(/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) |
(*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) |
(*.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (-.f64 phi1 phi2))) |
(*.f64 (fabs.f64 (-.f64 phi1 phi2)) (fabs.f64 (-.f64 phi1 phi2))) |
(*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) |
(pow.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #s(literal 1 binary64)) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) |
(exp.f64 (*.f64 (log.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64))) |
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(cos.f64 (*.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1))) |
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1)) #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1))) (-.f64 (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
(fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) |
(+.f64 (*.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))) |
#s(literal -1/2 binary64) |
(*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R) |
(*.f64 R (pow.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
(pow.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(sqrt.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (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 (*.f64 (-.f64 lambda1 lambda2) (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 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) |
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) |
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) |
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (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 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) |
(fma.f64 (sin.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(fma.f64 (sin.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(sin.f64 (/.f64 (+.f64 (+.f64 phi2 phi1) (PI.f64)) #s(literal 2 binary64))) |
(sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(cos.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) |
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) |
(+.f64 (*.f64 (sin.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(+.f64 (*.f64 (sin.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(/.f64 (+.f64 (pow.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
(+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))) |
(neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) |
(/.f64 (neg.f64 (+.f64 phi2 phi1)) #s(literal -2 binary64)) |
(/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) |
(+.f64 (/.f64 phi2 #s(literal 2 binary64)) (/.f64 phi1 #s(literal 2 binary64))) |
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) |
(sin.f64 (+.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(cos.f64 (neg.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) |
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) |
(/.f64 (neg.f64 (+.f64 phi1 phi2)) #s(literal -2 binary64)) |
(/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)) |
(+.f64 (/.f64 phi1 #s(literal 2 binary64)) (/.f64 phi2 #s(literal 2 binary64))) |
(/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2)) (+.f64 (*.f64 phi1 phi1) (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi2)))) |
(+.f64 phi1 phi2) |
(*.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (-.f64 phi1 phi2))) |
(*.f64 (fabs.f64 (-.f64 phi1 phi2)) (fabs.f64 (-.f64 phi1 phi2))) |
(*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) |
(pow.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #s(literal 1 binary64)) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) |
(exp.f64 (*.f64 (log.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64))) |
(*.f64 (hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (*.f64 #s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
(pow.f64 (fma.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 #s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64)) |
(sqrt.f64 (fma.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 #s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (*.f64 #s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (fabs.f64 (*.f64 #s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (*.f64 #s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (neg.f64 (*.f64 #s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (fabs.f64 (*.f64 #s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (*.f64 #s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) |
(hypot.f64 (-.f64 phi1 phi2) (neg.f64 (*.f64 #s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (-.f64 phi1 phi2) (fabs.f64 (*.f64 #s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (-.f64 phi1 phi2) (*.f64 #s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) |
(*.f64 #s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(cos.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi1))) |
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) |
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) phi1) #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
(fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) |
(+.f64 (*.f64 #s(literal 1/2 binary64) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) |
(*.f64 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(pow.f64 (fma.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (-.f64 phi1 phi2)) (*.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)))) #s(literal 1/2 binary64)) |
(sqrt.f64 (fma.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (-.f64 phi1 phi2)) (*.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))))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(hypot.f64 (-.f64 phi1 phi2) (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (-.f64 phi1 phi2) (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (-.f64 phi1 phi2) (*.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)) |
(fma.f64 (sin.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(fma.f64 (sin.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(sin.f64 (/.f64 (+.f64 (+.f64 phi2 phi1) (PI.f64)) #s(literal 2 binary64))) |
(sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(cos.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) |
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) |
(+.f64 (*.f64 (sin.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(+.f64 (*.f64 (sin.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(/.f64 (+.f64 (pow.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
(/.f64 (+.f64 (+.f64 phi2 phi1) (PI.f64)) #s(literal 2 binary64)) |
(/.f64 (fma.f64 (+.f64 phi2 phi1) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (PI.f64))) #s(literal 4 binary64)) |
(+.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx R R) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 R (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (/.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda1)) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 R (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* R lambda2) (*.f64 R lambda2)) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) lambda1)) |
#s(approx (* (pow (- phi1 phi2) 2) R) (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 R (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) lambda1)))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 #s(literal -1 binary64) (*.f64 R (fma.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) lambda1)))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) lambda1))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 #s(literal -1 binary64) (*.f64 R (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (fma.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2)) |
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2)) |
#s(approx lambda1 lambda1) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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))))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) lambda1)) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) lambda1)) |
#s(approx (* -1 lambda1) (*.f64 #s(literal -1 binary64) lambda1)) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 lambda1 lambda1))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) (*.f64 lambda1 lambda1))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (*.f64 lambda1 lambda1))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) lambda1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 #s(literal -2 binary64) (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 #s(literal -2 binary64) (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 lambda1 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (fma.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))))) |
#s(approx (- lambda1 lambda2) lambda1) |
#s(approx (- lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 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 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda1)) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 lambda1)) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 lambda1 lambda1) lambda1)) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 lambda1)) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda1 (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 lambda2 lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda1 (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 lambda2 lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda1 (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 lambda2 lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) lambda1)) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (*.f64 lambda1 lambda1) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (*.f64 lambda1 lambda1) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 lambda1)))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (*.f64 lambda1 lambda1) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (*.f64 lambda1 lambda1) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 lambda1 lambda1)))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (*.f64 lambda1 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (*.f64 lambda1 (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda2 lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1)))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))))) |
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #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 #s(literal -1 binary64) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) lambda1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 R lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 (*.f64 R lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) lambda1) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))) lambda1) (*.f64 (*.f64 R lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) lambda1) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 lambda2 lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) lambda1)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))) lambda1) (*.f64 lambda2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) lambda1)))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (*.f64 lambda1 lambda1) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) lambda1) (*.f64 #s(literal 2 binary64) (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (*.f64 lambda1 lambda1) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1) (*.f64 #s(literal 2 binary64) (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 lambda2 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda1) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda2 lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda1) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) |
#s(approx lambda2 lambda2) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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))))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 #s(literal -2 binary64) (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 lambda2 (fma.f64 #s(literal -2 binary64) (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 #s(literal -2 binary64) (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -2 binary64) (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda1 (*.f64 (*.f64 lambda2 lambda2) lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)))) |
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #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 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (/.f64 (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda2))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (/.f64 (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1)))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda1) lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda1) lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda1) lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 lambda2 lambda2) lambda2)) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda2 (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 lambda1 lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda2 (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 lambda1 lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda2 (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 lambda1 lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda2 lambda2) lambda2)) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 lambda2)) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (*.f64 lambda2 lambda2) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (*.f64 lambda2 lambda2) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (*.f64 lambda2 lambda2) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (*.f64 lambda2 lambda2) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 lambda2 lambda2)))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 lambda1 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda2) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda1 (*.f64 (*.f64 lambda2 lambda2) lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda2) (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda1 lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2)))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)))))) |
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 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 #s(literal -1 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda2) (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda2))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2) (/.f64 (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 R lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda1) lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) lambda2) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 (*.f64 R lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) lambda2) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) lambda2) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))) lambda2) (*.f64 (*.f64 R lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) lambda2) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 lambda1 lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) lambda2) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) lambda2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) lambda2) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))) lambda2) (*.f64 lambda1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) lambda2)))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (*.f64 lambda2 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) lambda2) (*.f64 #s(literal 2 binary64) (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (*.f64 lambda2 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2) (*.f64 #s(literal 2 binary64) (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda2)))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda2) (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda2) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda1 lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda2) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) phi2)) |
#s(approx (- phi1 phi2) (-.f64 phi1 phi2)) |
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) phi2)) |
#s(approx (- phi1 phi2) (-.f64 phi1 phi2)) |
#s(approx phi1 phi1) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (fma.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi1 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) |
#s(approx (/ (+ phi2 phi1) 2) (*.f64 #s(literal 1/2 binary64) phi2)) |
#s(approx (/ (+ phi2 phi1) 2) (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) phi2))) |
#s(approx (+ phi2 phi1) phi2) |
#s(approx (+ phi2 phi1) (+.f64 phi1 phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 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))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/48 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1))) (*.f64 #s(literal -1/48 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (fma.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/48 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1))) (*.f64 #s(literal -1/48 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1)) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 phi1 (fma.f64 #s(literal -1/48 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1))))))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (fma.f64 #s(literal -1/48 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/48 binary64) (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) (fma.f64 #s(literal 1/2 binary64) phi1 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (fma.f64 #s(literal -1/2 binary64) (*.f64 phi1 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 phi1 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 phi1 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 phi1 (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 phi1 (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (/.f64 (*.f64 R (*.f64 phi2 phi2)) lambda1)) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi2)) lambda1) (/.f64 (*.f64 R (*.f64 phi2 phi2)) lambda1))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (fma.f64 phi1 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 R phi2) lambda1) (/.f64 (*.f64 R phi1) lambda1)) (/.f64 (*.f64 R (*.f64 phi2 phi2)) lambda1))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (*.f64 R (*.f64 phi2 phi2))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (fma.f64 #s(literal -2 binary64) (*.f64 R (*.f64 phi1 phi2)) (*.f64 R (*.f64 phi2 phi2)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (fma.f64 R (*.f64 phi2 phi2) (*.f64 phi1 (fma.f64 #s(literal -2 binary64) (*.f64 R phi2) (*.f64 R phi1))))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 phi2 phi2)) |
#s(approx (pow (- phi1 phi2) 2) (fma.f64 #s(literal -2 binary64) (*.f64 phi1 phi2) (*.f64 phi2 phi2))) |
#s(approx (pow (- phi1 phi2) 2) (fma.f64 phi1 (+.f64 phi1 (*.f64 #s(literal -2 binary64) phi2)) (*.f64 phi2 phi2))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal -1/48 binary64) (*.f64 R (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 R (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 R (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 phi1 (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 phi1 (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (-.f64 lambda1 lambda2))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (fma.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi1 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi1 (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (-.f64 lambda1 lambda2)))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi1 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi1 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) (-.f64 (fma.f64 #s(literal -1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) phi2))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) (*.f64 #s(literal -1/2 binary64) phi2)) |
#s(approx (neg (/ (+ phi2 phi1) 2)) (-.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) phi2))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (fma.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (fma.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi1 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) |
#s(approx (/ (+ phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi2)) |
#s(approx (/ (+ phi1 phi2) 2) (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) phi2))) |
#s(approx (+ phi1 phi2) phi2) |
#s(approx (+ phi1 phi2) (+.f64 phi1 phi2)) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 phi2 phi2)) |
#s(approx (pow (- phi1 phi2) 2) (fma.f64 #s(literal -2 binary64) (*.f64 phi1 phi2) (*.f64 phi2 phi2))) |
#s(approx (pow (- phi1 phi2) 2) (fma.f64 phi1 (+.f64 phi1 (*.f64 #s(literal -2 binary64) phi2)) (*.f64 phi2 phi2))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 phi1 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal -1/48 binary64) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (*.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/24 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (*.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/24 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (fma.f64 #s(literal 1/2 binary64) (*.f64 phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 phi1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2)) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/48 binary64) (*.f64 phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/48 binary64) (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) (fma.f64 #s(literal 1/2 binary64) phi1 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 R phi1)) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (*.f64 phi1 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) phi1) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 phi1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (*.f64 phi1 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) |
#s(approx (- phi1 phi2) phi1) |
#s(approx (- phi1 phi2) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1))))) |
#s(approx (- phi1 phi2) phi1) |
#s(approx (- phi1 phi2) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (/ (+ phi2 phi1) 2) (*.f64 #s(literal 1/2 binary64) phi1)) |
#s(approx (/ (+ phi2 phi1) 2) (*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1))))) |
#s(approx (+ phi2 phi1) phi1) |
#s(approx (+ phi2 phi1) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (*.f64 phi1 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 phi1 phi1)) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) (*.f64 phi1 phi1)) (fma.f64 #s(literal 1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 phi1 phi1))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 phi1 phi1)))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (fma.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 phi1 phi1))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) phi1)) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) (*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (+.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (/.f64 (*.f64 R (*.f64 phi1 phi1)) lambda1)) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 phi1)) (/.f64 R lambda1)))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 phi1)) (/.f64 (fma.f64 R (*.f64 lambda1 (*.f64 phi1 phi1)) (*.f64 lambda1 (*.f64 R (*.f64 phi2 phi2)))) (*.f64 lambda1 (*.f64 lambda1 (*.f64 phi1 phi1))))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (*.f64 R (*.f64 phi1 phi1))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (*.f64 (*.f64 phi1 phi1) (+.f64 R (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 R phi2) phi1))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (*.f64 (*.f64 phi1 phi1) (+.f64 R (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 R phi2) phi1) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 phi1 phi1)))))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 phi1 phi1)) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 phi2 phi1))))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (*.f64 phi1 phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (*.f64 (*.f64 phi1 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (*.f64 phi1 phi1)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) phi1) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 phi1 phi1))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 phi1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (*.f64 (*.f64 phi1 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 phi1 phi1)))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi1 phi1)) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 phi2 phi1))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) (/.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) (*.f64 phi1 phi1)))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 lambda1 lambda2))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) (*.f64 #s(literal -1/2 binary64) phi1)) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) (*.f64 phi1 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1)))))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) (*.f64 #s(literal -1/2 binary64) phi1)) |
#s(approx (neg (/ (+ phi2 phi1) 2)) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1)) #s(literal 1/2 binary64)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (/ (+ phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)) |
#s(approx (/ (+ phi1 phi2) 2) (*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1))))) |
#s(approx (+ phi1 phi2) phi1) |
#s(approx (+ phi1 phi2) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 phi1 phi1)) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 phi2 phi1))))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) phi1)) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 R phi1)) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (*.f64 phi1 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) phi1) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 phi1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (*.f64 phi1 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 lambda1 lambda2))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) phi1)) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) (*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R phi1))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) phi1))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) phi1)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) phi1))) phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi1))) phi1))) phi1)))))) |
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64))))) |
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (/ (+ phi2 phi1) 2) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1)) #s(literal 1/2 binary64))))) |
#s(approx (+ phi2 phi1) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)) #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 #s(literal -1 binary64) (*.f64 R phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) phi1))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) (/.f64 (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) lambda1)) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) phi1)) phi1) (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) lambda1)) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) phi1) (/.f64 (*.f64 R phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) lambda1)) phi1))) phi1) (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) phi1))) phi1) (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) #s(literal 1/2 binary64))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))))) phi1) (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))) phi1) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) phi1)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 R phi2) lambda1))) phi1) (/.f64 R lambda1)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (*.f64 (*.f64 phi1 phi1) (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) phi1) (*.f64 #s(literal 2 binary64) (*.f64 R phi2))) phi1))))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 phi2 phi2) phi1) (*.f64 #s(literal 2 binary64) phi2)) phi1))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 R phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) phi1))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) phi1)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) phi1))) phi1)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) phi1))) phi1))) phi1)))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) phi1) (*.f64 #s(literal 2 binary64) phi2)) phi1))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (-.f64 lambda1 lambda2))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) phi2) phi1))))))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1)))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (/ (+ phi1 phi2) 2) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1)) #s(literal 1/2 binary64))))) |
#s(approx (+ phi1 phi2) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)) #s(literal 1 binary64))))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 phi2 phi2) phi1) (*.f64 #s(literal 2 binary64) phi2)) phi1))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi1)))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R phi1))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) phi1))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) phi1)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) phi1))) phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi1))) phi1))) phi1)))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (-.f64 lambda1 lambda2))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (- phi1 phi2) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))) |
#s(approx (- phi1 phi2) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))) |
#s(approx phi2 phi2) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (fma.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #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 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 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))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/48 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1))) (*.f64 #s(literal -1/48 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (*.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (fma.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/48 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1))) (*.f64 #s(literal -1/48 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) lambda1)) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 phi2 (fma.f64 #s(literal -1/48 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1))))))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) lambda1)))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (fma.f64 #s(literal -1/48 binary64) (*.f64 R (*.f64 lambda2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/48 binary64) (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (fma.f64 #s(literal -1/2 binary64) (*.f64 phi2 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 phi2 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 phi2 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 phi2 (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (fma.f64 phi2 (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 (*.f64 phi1 phi1) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi2)) lambda1) (/.f64 (*.f64 R (*.f64 phi1 phi1)) lambda1))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (fma.f64 phi2 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 R phi1) lambda1) (/.f64 (*.f64 R phi2) lambda1)) (/.f64 (*.f64 R (*.f64 phi1 phi1)) lambda1))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (fma.f64 #s(literal -2 binary64) (*.f64 R (*.f64 phi1 phi2)) (*.f64 R (*.f64 phi1 phi1)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (fma.f64 R (*.f64 phi1 phi1) (*.f64 phi2 (fma.f64 #s(literal -2 binary64) (*.f64 R phi1) (*.f64 R phi2))))) |
#s(approx (pow (- phi1 phi2) 2) (fma.f64 #s(literal -2 binary64) (*.f64 phi1 phi2) (*.f64 phi1 phi1))) |
#s(approx (pow (- phi1 phi2) 2) (fma.f64 phi2 (+.f64 phi2 (*.f64 #s(literal -2 binary64) phi1)) (*.f64 phi1 phi1))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (fma.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal -1/48 binary64) (*.f64 R (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 R (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 R (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (+.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (fma.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 phi2 (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 phi2 (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (*.f64 phi2 (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (fma.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi2 (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 lambda1 lambda2)))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi2 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) (-.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) phi1))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) (-.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) phi1))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (fma.f64 #s(literal -1/2 binary64) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (fma.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) |
#s(approx (pow (- phi1 phi2) 2) (fma.f64 #s(literal -2 binary64) (*.f64 phi1 phi2) (*.f64 phi1 phi1))) |
#s(approx (pow (- phi1 phi2) 2) (fma.f64 phi2 (+.f64 phi2 (*.f64 #s(literal -2 binary64) phi1)) (*.f64 phi1 phi1))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (*.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/24 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (*.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/24 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (fma.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (fma.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2)) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/48 binary64) (*.f64 phi2 (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/48 binary64) (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 R phi2)) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (*.f64 phi2 phi2) phi2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) phi2) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 phi2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (*.f64 phi2 phi2) phi2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))))) |
#s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) |
#s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) |
#s(approx (/ (+ phi2 phi1) 2) (*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2))))) |
#s(approx (+ phi2 phi1) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))) |
#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 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (*.f64 phi2 phi2) phi2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 phi2 phi2)) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) (*.f64 phi2 phi2)) (fma.f64 #s(literal 1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 phi2 phi2))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 phi2 phi2)))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (fma.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 phi2 phi2))))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) phi2)) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) (*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (+.f64 (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 phi2)) (/.f64 R lambda1)))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 phi2)) (/.f64 (fma.f64 R (*.f64 lambda1 (*.f64 phi2 phi2)) (*.f64 lambda1 (*.f64 R (*.f64 phi1 phi1)))) (*.f64 lambda1 (*.f64 lambda1 (*.f64 phi2 phi2))))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (*.f64 (*.f64 phi2 phi2) (+.f64 R (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 R phi1) phi2))))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (*.f64 (*.f64 phi2 phi2) (+.f64 R (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 R phi1) phi2) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 phi2 phi2)))))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 phi1 phi2))))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 phi1 phi2) (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (*.f64 phi2 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (*.f64 (*.f64 phi2 phi2) phi2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (*.f64 phi2 phi2)))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) phi2) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 phi2 phi2))))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 phi2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (*.f64 (*.f64 phi2 phi2) phi2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 phi2 phi2)))))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 phi1 phi2))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 phi1 phi2) (/.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) (*.f64 phi2 phi2)))))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) (*.f64 #s(literal -1/2 binary64) phi2)) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) (*.f64 phi2 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)))))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64)))) |
#s(approx (/ (+ phi1 phi2) 2) (*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2))))) |
#s(approx (+ phi1 phi2) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 phi1 phi2))))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 phi1 phi2) (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 R phi2)) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (*.f64 phi2 phi2) phi2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) phi2) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 phi2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (*.f64 phi2 phi2) phi2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) phi2)) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) (*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R phi2))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) phi2))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) phi2)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (*.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) phi2))) phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi2))) phi2))) phi2)))))) |
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)))))) |
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (/ (+ phi2 phi1) 2) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) |
#s(approx (+ phi2 phi1) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)) #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 #s(literal -1 binary64) (*.f64 R phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) phi2))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (* (* -1 lambda1) (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) (/.f64 (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) lambda1)) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) phi2)) phi2) (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (+ (* (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) -1) (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) lambda1)) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) phi2) (/.f64 (*.f64 R phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 phi2)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 (*.f64 phi2 phi2) (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) (*.f64 (/.f64 R (*.f64 lambda1 lambda1)) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (/ (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) lambda1) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) lambda1)) phi2))) phi2) (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (+ (* (* R lambda2) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2)) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) phi2))) phi2) (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) |
#s(approx (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) #s(literal 1/2 binary64))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (* (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) -1/2) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))))) phi2) (*.f64 #s(literal -1/2 binary64) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi2 phi2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))))) |
#s(approx (/ (/ (* (pow (- phi1 phi2) 2) R) lambda1) (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2)))) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))) phi2) (/.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))))) |
#s(approx (/ (* (pow (- phi1 phi2) 2) R) lambda1) (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 phi1 phi1) phi2)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 R phi1) lambda1))) phi2) (/.f64 R lambda1)))) |
#s(approx (* (pow (- phi1 phi2) 2) R) (*.f64 (*.f64 phi2 phi2) (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 phi1 phi1)) phi2) (*.f64 #s(literal 2 binary64) (*.f64 R phi1))) phi2))))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 phi1 phi1) phi2) (*.f64 #s(literal 2 binary64) phi1)) phi2))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi2 phi1)) (/ (PI) 2))) R) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 R phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) phi2))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) phi2)) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) phi2))) phi2)))))) |
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) phi2))) phi2))) phi2)))))) |
#s(approx (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) phi2) (*.f64 #s(literal 2 binary64) phi1)) phi2))))) |
#s(approx (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) |
#s(approx (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (-.f64 lambda1 lambda2))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) |
#s(approx (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) phi1) phi2))))))) |
#s(approx (neg (/ (+ phi2 phi1) 2)) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)))))) |
#s(approx (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (cos (/ (+ phi1 phi2) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (/ (+ phi1 phi2) 2) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) |
#s(approx (+ phi1 phi2) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)) #s(literal 1 binary64))))) |
#s(approx (pow (- phi1 phi2) 2) (*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 phi1 phi1) phi2) (*.f64 #s(literal 2 binary64) phi1)) phi2))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R phi2))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) phi2))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) phi2)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (*.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) phi2))) phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi2))) phi2))) phi2)))))) |
#s(approx (* (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (-.f64 lambda1 lambda2))) |
#s(approx (sin (+ (/ (+ phi2 phi1) 2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) |
#s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) #s(literal 1/2 binary64))))) |
Compiled 116 321 to 7 028 computations (94% saved)
11 alts after pruning (6 fresh and 5 done)
| Pruned | Kept | Total | |
|---|---|---|---|
| New | 1 174 | 5 | 1 179 |
| Fresh | 2 | 1 | 3 |
| Picked | 2 | 3 | 5 |
| Done | 0 | 2 | 2 |
| Total | 1 178 | 11 | 1 189 |
| Status | Accuracy | Program |
|---|---|---|
| ✓ | 83.6% | (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (sin.f64 (+.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) R) |
| 83.3% | (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (sin.f64 #s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) R) | |
| ▶ | 96.0% | (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
| ✓ | 90.4% | (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
| ▶ | 83.3% | (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) R) |
| ▶ | 62.4% | (*.f64 (hypot.f64 #s(approx (- phi1 phi2) phi1) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
| ✓ | 57.7% | (*.f64 R (sqrt.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
| ✓ | 48.1% | (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
| ▶ | 24.1% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
| ✓ | 18.2% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
| ▶ | 24.8% | #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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) |
Compiled 638 to 425 computations (33.4% saved)
| Inputs |
|---|
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) |
(-.f64 phi1 phi2) |
phi1 |
phi2 |
#s(literal 1 binary64) |
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) |
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) |
(/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) |
(+.f64 phi2 phi1) |
#s(literal 2 binary64) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
R |
#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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) |
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) |
(*.f64 R lambda2) |
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) |
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)) |
#s(literal 1/2 binary64) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
(*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))) |
#s(literal -1 binary64) |
(*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))) |
(fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) |
(*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) |
(/.f64 (*.f64 R lambda2) lambda1) |
(pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)) |
(*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) |
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))) |
(+.f64 phi1 phi2) |
(/.f64 (PI.f64) #s(literal 2 binary64)) |
(PI.f64) |
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) |
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) |
(*.f64 #s(literal 1/2 binary64) (PI.f64)) |
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) |
(*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) |
(*.f64 (hypot.f64 #s(approx (- phi1 phi2) phi1) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
(hypot.f64 #s(approx (- phi1 phi2) phi1) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) |
#s(approx (- phi1 phi2) phi1) |
(*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) R) |
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) |
(*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2)) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) |
(sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) |
| Outputs |
|---|
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx R #s(hole binary64 R)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R lambda2) #s(hole binary64 (* R lambda2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2)))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* -1 (* R (* lambda1 (+ (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (* (/ lambda2 lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* R (* lambda1 (+ (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (* (/ lambda2 lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (* R (+ (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (* (/ lambda2 lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (* R lambda2) lambda1) #s(hole binary64 (/ (* R lambda2) lambda1))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* R (* lambda1 (+ (* -1 (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* (/ lambda2 lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* -1 (* R (* lambda1 (+ (* -1 (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* (/ lambda2 lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (* -1 (* R (+ (* -1 (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* (/ lambda2 lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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)))))) (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2))) |
#s(approx lambda1 #s(hole binary64 lambda1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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)))))) (* 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))))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -1 (* (* R (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* (* R lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (+ (* -1 (* (* R lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (* R lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* -1 (* (* R lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (+ (* -1 (* (* R lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (* R lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (/ (+ (* -1 (* (* R lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (* R lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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)))))) (* 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))))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1)) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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)))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* (* R lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* R (pow (- phi1 phi2) 2)) (pow lambda1 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (pow lambda1 3)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (+ (* 1/2 (* (/ (* R (pow (- phi1 phi2) 2)) (pow lambda1 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* -1 (* (* R lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* lambda1 (+ (* -1 (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* (* R lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* (* R lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (* (/ (* R (pow (- phi1 phi2) 2)) lambda1) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* (* R lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1)) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* (* R (pow (- phi1 phi2) 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* 1/2 (* (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) lambda1) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) lambda1)) (* (* R lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1)) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2)))) |
#s(approx lambda2 #s(hole binary64 lambda2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -1 (* (* R (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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)))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* (* R lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* R (pow (- phi1 phi2) 2)) (pow lambda2 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (pow lambda2 3)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (+ (* 1/2 (* (/ (* R (pow (- phi1 phi2) 2)) (pow lambda2 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* lambda2 (+ (* -1 (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (/ (* R lambda1) lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (* lambda2 (+ (* -1 (* (/ R lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (/ R lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* (* R lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (* (/ (* R (pow (- phi1 phi2) 2)) lambda2) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* (* R lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda2)) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* (* R (pow (- phi1 phi2) 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* 1/2 (* (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) lambda2) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) lambda2)) (* (* R lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda2)) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (/ (* R lambda1) lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (* (/ R lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (/ R lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* -1 phi2))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (- phi1 phi2))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 phi2))) |
#s(approx (- phi1 phi2) #s(hole binary64 (- phi1 phi2))) |
#s(approx phi1 #s(hole binary64 phi1)) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* 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))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 phi2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole 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)))))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 phi2)))) |
#s(approx (+ phi2 phi1) #s(hole binary64 phi2)) |
#s(approx (+ phi2 phi1) #s(hole binary64 (+ phi1 phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 phi2)))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2))))))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2))))))))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole binary64 (cos (* 1/2 phi2)))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole 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)))))))) |
#s(approx (* 1/2 (+ phi2 phi1)) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (* 1/2 (+ phi2 phi1)) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* R (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ (* 1/48 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (/ (* (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))) (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) (* phi1 (+ (* -1 (* lambda1 (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))) (* -1 (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) (* phi1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))) (* phi1 (+ (* -1 (* lambda1 (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (- (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))) (* -1 (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (+ (* lambda1 (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))) (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* phi1 (+ (* lambda1 (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))) (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* phi1 (+ (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))) (* phi1 (+ (* lambda1 (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (- (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))) (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (+ (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (+ (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (+ (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (+ (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (+ (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (+ (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (- (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* 1/2 (* (/ (* R (* lambda2 (* phi1 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (* (/ (* R (* lambda2 (* phi1 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))) (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* phi1 (+ (* 1/2 (* (/ (* R (* lambda2 (* phi1 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))) (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (+ (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (* 1/2 (* (* phi1 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (+ (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* phi1 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (+ (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) (* 1/2 (* (* phi1 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (* phi1 (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (* phi1 (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (* phi1 (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* 1/2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* phi1 (+ (* -1/8 (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* phi1 (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1/8 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* -1/48 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi2) (* 1/2 (PI))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (+ (* 1/2 phi2) (* 1/2 (PI)))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 phi2)) |
#s(approx (+ phi1 phi2) #s(hole binary64 (+ phi1 phi2))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (* -1/2 (* phi1 (cos (- (* 1/2 (PI)) (* 1/2 phi2)))))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (* phi1 (+ (* -1/2 (cos (- (* 1/2 (PI)) (* 1/2 phi2)))) (* -1/8 (* phi1 (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (* phi1 (+ (* -1/2 (cos (- (* 1/2 (PI)) (* 1/2 phi2)))) (* phi1 (+ (* -1/8 (sin (- (* 1/2 (PI)) (* 1/2 phi2)))) (* 1/48 (* phi1 (cos (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (- (* 1/2 (PI)) (* 1/2 phi2)))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (- (+ (* -1/2 phi1) (* 1/2 (PI))) (* 1/2 phi2)))) |
#s(approx (* 1/2 (+ phi1 phi2)) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (* 1/2 (+ phi1 phi2)) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 phi2)))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* 1/2 (* (* R (* phi1 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* phi1 (+ (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* 1/2 (* phi1 (cos (* 1/2 (PI)))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1/8 (* phi1 (sin (* 1/2 (PI))))) (* 1/2 (cos (* 1/2 (PI))))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* 1/2 (cos (* 1/2 (PI)))) (* phi1 (+ (* -1/8 (sin (* 1/2 (PI)))) (* -1/48 (* phi1 (cos (* 1/2 (PI)))))))))))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI)))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 (PI))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi1))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 phi1)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 phi1)) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (- phi1 phi2) #s(hole binary64 phi1)) |
#s(approx (- phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 (+ phi1 phi2))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 phi1)) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* phi1 (+ 1 (/ phi2 phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole binary64 (cos (* 1/2 (+ phi1 phi2))))) |
#s(approx (* 1/2 (+ phi2 phi1)) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (* 1/2 (+ phi2 phi1)) #s(hole binary64 (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi1 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))))) (pow phi1 3))) (* 1/2 (/ (* R (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi1 2))))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1/2 (+ (* 1/2 (/ phi2 phi1)) (* 1/2 (/ (PI) phi1))))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 phi1)) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (/ phi2 phi1))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (* -1/2 phi1))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (* phi1 (- (* 1/2 (/ (PI) phi1)) (+ 1/2 (* 1/2 (/ phi2 phi1))))))) |
#s(approx (* 1/2 (+ phi1 phi2)) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (* 1/2 (+ phi1 phi2)) #s(hole binary64 (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi1))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 phi1)) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1/2 (* 1/2 (/ (PI) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi1))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* -1 (* phi1 (- (/ phi2 phi1) 1))))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (/ phi2 phi1) 1))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole binary64 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
#s(approx (* 1/2 (+ phi2 phi1)) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2)))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2))))) (* 1/2 (/ (* R (* phi2 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2))))) phi1))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ (* 1/2 phi2) (* 1/2 (PI))) phi1)) 1/2))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (* -1 (* phi1 (+ 1/2 (* -1 (/ (- (* 1/2 (PI)) (* 1/2 phi2)) phi1))))))) |
#s(approx (* 1/2 (+ phi1 phi2)) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi1))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1/2 phi1))))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1/2))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (+ phi1 (* -1 phi2)))) |
#s(approx (- phi1 phi2) #s(hole binary64 (+ phi1 (* -1 phi2)))) |
#s(approx phi2 #s(hole binary64 phi2)) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole 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))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole 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))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 phi1)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole 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)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 phi1)))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (+ (* -1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1))))))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole binary64 (cos (* 1/2 phi1)))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole 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)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* R (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ (* 1/48 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (/ (* (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))) (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) (* phi2 (+ (* -1 (* lambda1 (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))) (* -1 (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) (* phi2 (+ (* -1 (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))) (* phi2 (+ (* -1 (* lambda1 (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (- (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))) (* -1 (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (+ (* lambda1 (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))) (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* phi2 (+ (* lambda1 (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))) (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* phi2 (+ (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))) (* phi2 (+ (* lambda1 (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (- (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))) (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (+ (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (+ (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (+ (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (+ (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (+ (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (+ (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (- (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* 1/2 (* (/ (* R (* lambda2 (* phi2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (/ (* R (* lambda2 (* phi2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))) (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* phi2 (+ (* 1/2 (* (/ (* R (* lambda2 (* phi2 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))) (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (+ (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (* 1/2 (* (* phi2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (+ (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* phi2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (+ (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) (* 1/2 (* (* phi2 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (* phi2 (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (* phi2 (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (* phi2 (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* 1/2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* phi2 (+ (* -1/8 (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* phi2 (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1/8 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* -1/48 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 (PI))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (* -1/2 (* phi2 (cos (- (* 1/2 (PI)) (* 1/2 phi1)))))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (- (* 1/2 (PI)) (* 1/2 phi1)))) (* -1/8 (* phi2 (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (- (* 1/2 (PI)) (* 1/2 phi1)))) (* phi2 (+ (* -1/8 (sin (- (* 1/2 (PI)) (* 1/2 phi1)))) (* 1/48 (* phi2 (cos (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (- (* 1/2 (PI)) (* 1/2 phi1)))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (- (+ (* -1/2 phi2) (* 1/2 (PI))) (* 1/2 phi1)))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* 1/2 (* (* R (* phi2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* phi2 (+ (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi2))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 phi2)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* phi2 (- (/ phi1 phi2) 1)))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* phi2 (- (/ phi1 phi2) 1)))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* phi2 (+ 1 (/ phi1 phi2))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* 1/2 (+ phi2 phi1)) #s(hole binary64 (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi2 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))))) (pow phi2 3))) (* 1/2 (/ (* R (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi2 2))))))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1/2 (+ (* 1/2 (/ phi1 phi2)) (* 1/2 (/ (PI) phi2))))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi2 (+ 1 (/ phi1 phi2))))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (* -1/2 phi2))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (* phi2 (- (* 1/2 (/ (PI) phi2)) (+ 1/2 (* 1/2 (/ phi1 phi2))))))) |
#s(approx (* 1/2 (+ phi1 phi2)) #s(hole binary64 (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi2))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 phi2)) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi2))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole binary64 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
#s(approx (* 1/2 (+ phi2 phi1)) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2)))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2))))) (* 1/2 (/ (* R (* phi1 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2))))) phi2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ (* 1/2 phi1) (* 1/2 (PI))) phi2)) 1/2))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (* -1 (* phi2 (+ 1/2 (* -1 (/ (- (* 1/2 (PI)) (* 1/2 phi1)) phi2))))))) |
#s(approx (* 1/2 (+ phi1 phi2)) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi2))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
15 calls:
| Time | Variable | Point | Expression | |
|---|---|---|---|---|
| 42.0ms | phi1 | @ | inf | ((* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow (- phi1 phi2) 1) (- phi1 phi2) phi1 phi2 1 (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (+ phi2 phi1) 2 (- lambda1 lambda2) lambda1 lambda2 R (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) (* R lambda2) (cos (* 1/2 (+ phi2 phi1))) (* 1/2 (+ phi2 phi1)) 1/2 (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) (+ phi1 phi2) (/ (PI) 2) (PI) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (- phi1 phi2) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+ (* 1/2 phi1) (/ (PI) 2)) (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+ (* 1/2 phi1) (/ (PI) 2))) |
| 25.0ms | lambda2 | @ | -inf | ((* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow (- phi1 phi2) 1) (- phi1 phi2) phi1 phi2 1 (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (+ phi2 phi1) 2 (- lambda1 lambda2) lambda1 lambda2 R (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) (* R lambda2) (cos (* 1/2 (+ phi2 phi1))) (* 1/2 (+ phi2 phi1)) 1/2 (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) (+ phi1 phi2) (/ (PI) 2) (PI) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (- phi1 phi2) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+ (* 1/2 phi1) (/ (PI) 2)) (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+ (* 1/2 phi1) (/ (PI) 2))) |
| 16.0ms | phi1 | @ | 0 | ((* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow (- phi1 phi2) 1) (- phi1 phi2) phi1 phi2 1 (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (+ phi2 phi1) 2 (- lambda1 lambda2) lambda1 lambda2 R (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) (* R lambda2) (cos (* 1/2 (+ phi2 phi1))) (* 1/2 (+ phi2 phi1)) 1/2 (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) (+ phi1 phi2) (/ (PI) 2) (PI) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (- phi1 phi2) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+ (* 1/2 phi1) (/ (PI) 2)) (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+ (* 1/2 phi1) (/ (PI) 2))) |
| 16.0ms | phi2 | @ | 0 | ((* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow (- phi1 phi2) 1) (- phi1 phi2) phi1 phi2 1 (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (+ phi2 phi1) 2 (- lambda1 lambda2) lambda1 lambda2 R (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) (* R lambda2) (cos (* 1/2 (+ phi2 phi1))) (* 1/2 (+ phi2 phi1)) 1/2 (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) (+ phi1 phi2) (/ (PI) 2) (PI) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (- phi1 phi2) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+ (* 1/2 phi1) (/ (PI) 2)) (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+ (* 1/2 phi1) (/ (PI) 2))) |
| 13.0ms | phi2 | @ | inf | ((* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow (- phi1 phi2) 1) (- phi1 phi2) phi1 phi2 1 (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (/ (+ phi2 phi1) 2) (+ phi2 phi1) 2 (- lambda1 lambda2) lambda1 lambda2 R (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) (* R lambda2) (cos (* 1/2 (+ phi2 phi1))) (* 1/2 (+ phi2 phi1)) 1/2 (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) (+ phi1 phi2) (/ (PI) 2) (PI) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (- phi1 phi2) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+ (* 1/2 phi1) (/ (PI) 2)) (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (cos (/ (+ phi2 phi1) 2)) (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+ (* 1/2 phi1) (/ (PI) 2))) |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 2457 | 54340 |
| 0 | 2537 | 50235 |
| 0 | 8696 | 48143 |
| 1× | iter limit |
| 1× | node limit |
| 1× | iter limit |
| Inputs |
|---|
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) |
(-.f64 phi1 phi2) |
phi1 |
phi2 |
#s(literal 1 binary64) |
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) |
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) |
(/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) |
(+.f64 phi2 phi1) |
#s(literal 2 binary64) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
R |
#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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) |
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) |
(*.f64 R lambda2) |
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) |
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)) |
#s(literal 1/2 binary64) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
(*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))) |
#s(literal -1 binary64) |
(*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))) |
(fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) |
(*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) |
(/.f64 (*.f64 R lambda2) lambda1) |
(pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)) |
(*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) |
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))) |
(+.f64 phi1 phi2) |
(/.f64 (PI.f64) #s(literal 2 binary64)) |
(PI.f64) |
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) |
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) |
(*.f64 #s(literal 1/2 binary64) (PI.f64)) |
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) |
(*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) |
(*.f64 (hypot.f64 #s(approx (- phi1 phi2) phi1) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
(hypot.f64 #s(approx (- phi1 phi2) phi1) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) |
#s(approx (- phi1 phi2) phi1) |
(*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) R) |
(hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) |
(*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2)) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) |
(sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx R #s(hole binary64 R)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R lambda2) #s(hole binary64 (* R lambda2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))) (pow (- phi1 phi2) 2)))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* -1 (* R (* lambda1 (+ (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (* (/ lambda2 lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* R (* lambda1 (+ (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (* (/ lambda2 lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (* R (+ (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (* -1 (* (/ lambda2 lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (/ (* R lambda2) lambda1) #s(hole binary64 (/ (* R lambda2) lambda1))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* R (* lambda1 (+ (* -1 (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* (/ lambda2 lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* -1 (* R (* lambda1 (+ (* -1 (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* (/ lambda2 lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (* -1 (* R (+ (* -1 (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (* (/ lambda2 lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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)))))) (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2))) |
#s(approx lambda1 #s(hole binary64 lambda1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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)))))) (* 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))))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -1 (* (* R (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda2 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* (* R lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (+ (* -1 (* (* R lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (* R lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* -1 (* (* R lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (+ (* -1 (* (* R lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (* R lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (/ (+ (* -1 (* (* R lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (* R lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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)))))) (* 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))))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1)) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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)))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* (* R lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* R (pow (- phi1 phi2) 2)) (pow lambda1 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (pow lambda1 3)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (+ (* 1/2 (* (/ (* R (pow (- phi1 phi2) 2)) (pow lambda1 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* -1 (* (* R lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* lambda1 (+ (* -1 (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* (* R lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* (* R lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (* (/ (* R (pow (- phi1 phi2) 2)) lambda1) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* (* R lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1)) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* (* R (pow (- phi1 phi2) 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* 1/2 (* (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) lambda1) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) lambda1)) (* (* R lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda1)) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2)))) |
#s(approx lambda2 #s(hole binary64 lambda2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* -1 (* (* R (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (/ (* (pow lambda1 2) (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) 2))) (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) (pow (- phi1 phi2) 2))))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* -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))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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)))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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)))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* (* R lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* R (pow (- phi1 phi2) 2)) (pow lambda2 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (+ (* 1/2 (* (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (pow lambda2 3)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (+ (* 1/2 (* (/ (* R (pow (- phi1 phi2) 2)) (pow lambda2 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* lambda2 (+ (* -1 (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (/ (* R lambda1) lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (* lambda2 (+ (* -1 (* (/ R lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (/ R lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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)))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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)))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole 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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* (* R lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (* (/ (* R (pow (- phi1 phi2) 2)) lambda2) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* (* R lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda2)) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* (* R (pow (- phi1 phi2) 2)) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))))) (* 1/2 (* (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) lambda2) (sqrt (/ 1 (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))) lambda2)) (* (* R lambda1) (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) lambda2)) (* R (sqrt (* (cos (* 1/2 (+ phi1 phi2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (/ (* R lambda1) lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (* (/ (* R lambda1) lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (* (/ R lambda2) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) (* (/ R lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole 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))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole 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))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* -1 phi2))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (- phi1 phi2))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 phi2))) |
#s(approx (- phi1 phi2) #s(hole binary64 (- phi1 phi2))) |
#s(approx phi1 #s(hole binary64 phi1)) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* 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))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 phi2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole 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)))))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 phi2)))) |
#s(approx (+ phi2 phi1) #s(hole binary64 phi2)) |
#s(approx (+ phi2 phi1) #s(hole binary64 (+ phi1 phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 phi2)))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2))))))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2))))))))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole binary64 (cos (* 1/2 phi2)))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole binary64 (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole 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)))))))) |
#s(approx (* 1/2 (+ phi2 phi1)) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (* 1/2 (+ phi2 phi1)) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* R (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ (* 1/48 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (/ (* (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi2) (+ (* -1/2 (* (cos (* 1/2 phi2)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi2)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))) (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) (* phi1 (+ (* -1 (* lambda1 (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))) (* -1 (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) (* phi1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))) (* phi1 (+ (* -1 (* lambda1 (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (- (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))) (* -1 (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (+ (* lambda1 (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))) (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* phi1 (+ (* lambda1 (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))) (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* phi1 (+ (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))) (* phi1 (+ (* lambda1 (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (- (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))) (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (+ (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (+ (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (+ (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (+ (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (+ (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (+ (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* phi1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (- (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* 1/2 (* (/ (* R (* lambda2 (* phi1 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (* (/ (* R (* lambda2 (* phi1 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))) (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* phi1 (+ (* 1/2 (* (/ (* R (* lambda2 (* phi1 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))) (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (+ (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (* 1/2 (* (* phi1 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (+ (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* phi1 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (+ (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) (* 1/2 (* (* phi1 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (* phi1 (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (+ (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (* phi1 (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (* phi1 (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))))))))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* 1/2 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* phi1 (+ (* -1/8 (* phi1 (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI)))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (* phi1 (+ (* 1/2 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))) (* phi1 (+ (* -1/8 (sin (+ (* 1/2 phi2) (* 1/2 (PI))))) (* -1/48 (* phi1 (cos (+ (* 1/2 phi2) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi2) (* 1/2 (PI))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (+ (* 1/2 phi2) (* 1/2 (PI)))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 phi2)) |
#s(approx (+ phi1 phi2) #s(hole binary64 (+ phi1 phi2))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (* -1/2 (* phi1 (cos (- (* 1/2 (PI)) (* 1/2 phi2)))))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (* phi1 (+ (* -1/2 (cos (- (* 1/2 (PI)) (* 1/2 phi2)))) (* -1/8 (* phi1 (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi2))) (* phi1 (+ (* -1/2 (cos (- (* 1/2 (PI)) (* 1/2 phi2)))) (* phi1 (+ (* -1/8 (sin (- (* 1/2 (PI)) (* 1/2 phi2)))) (* 1/48 (* phi1 (cos (- (* 1/2 (PI)) (* 1/2 phi2)))))))))))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (- (* 1/2 (PI)) (* 1/2 phi2)))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (- (+ (* -1/2 phi1) (* 1/2 (PI))) (* 1/2 phi2)))) |
#s(approx (* 1/2 (+ phi1 phi2)) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (* 1/2 (+ phi1 phi2)) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 phi2)))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* 1/2 (* (* R (* phi1 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* R (sqrt (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* phi1 (+ (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi2))))) (* -1/4 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi2))) (sin (+ (* 1/2 phi2) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))) 2) (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi2) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi2))))))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* 1/2 (* phi1 (cos (* 1/2 (PI)))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1/8 (* phi1 (sin (* 1/2 (PI))))) (* 1/2 (cos (* 1/2 (PI))))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* 1/2 (cos (* 1/2 (PI)))) (* phi1 (+ (* -1/8 (sin (* 1/2 (PI)))) (* -1/48 (* phi1 (cos (* 1/2 (PI)))))))))))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI)))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 (PI))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi1))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 phi1)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 phi1)) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (- phi1 phi2) #s(hole binary64 phi1)) |
#s(approx (- phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 (+ phi1 phi2))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 phi1)) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* phi1 (+ 1 (/ phi2 phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole binary64 (cos (* 1/2 (+ phi1 phi2))))) |
#s(approx (* 1/2 (+ phi2 phi1)) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (* 1/2 (+ phi2 phi1)) #s(hole binary64 (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi1 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))))) (pow phi1 3))) (* 1/2 (/ (* R (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi1 2))))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (* (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1/2 (+ (* 1/2 (/ phi2 phi1)) (* 1/2 (/ (PI) phi1))))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 phi1)) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (/ phi2 phi1))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (* -1/2 phi1))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (* phi1 (- (* 1/2 (/ (PI) phi1)) (+ 1/2 (* 1/2 (/ phi2 phi1))))))) |
#s(approx (* 1/2 (+ phi1 phi2)) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (* 1/2 (+ phi1 phi2)) #s(hole binary64 (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi1))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 phi1)) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi1))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1/2 (* 1/2 (/ (PI) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi1))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* -1 (* phi1 (- (/ phi2 phi1) 1))))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (/ phi2 phi1) 1))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole binary64 (cos (* 1/2 (- phi2 (* -1 phi1)))))) |
#s(approx (* 1/2 (+ phi2 phi1)) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2)))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2))))) (* 1/2 (/ (* R (* phi2 (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (pow (- lambda1 lambda2) 2))))) phi1))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ (* 1/2 phi2) (* 1/2 (PI))) phi1)) 1/2))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (* -1 (* phi1 (+ 1/2 (* -1 (/ (- (* 1/2 (PI)) (* 1/2 phi2)) phi1))))))) |
#s(approx (* 1/2 (+ phi1 phi2)) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi2 (* -1 phi1)))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi1)))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi1))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1/2 phi1))))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1/2))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (+ phi1 (* -1 phi2)))) |
#s(approx (- phi1 phi2) #s(hole binary64 (+ phi1 (* -1 phi2)))) |
#s(approx phi2 #s(hole binary64 phi2)) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole 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))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole 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))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 phi1)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole 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)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 phi1)))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (+ (* -1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1))))))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1))))))))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole binary64 (cos (* 1/2 phi1)))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole binary64 (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole 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)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* R (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (+ (* R (sqrt (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ (* 1/48 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/48 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (+ (* 1/16 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/16 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))))))) (* 1/2 (/ (* (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (+ (* -1/4 (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* 1/4 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (* 1/4 (/ (pow (+ (* -2 phi1) (+ (* -1/2 (* (cos (* 1/2 phi1)) (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))) (* -1/2 (* (sin (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2)))))) 2) (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (cos (* 1/2 phi1)) (* (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))) (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) (* phi2 (+ (* -1 (* lambda1 (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))) (* -1 (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (+ (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) (* phi2 (+ (* -1 (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))) (* phi2 (+ (* -1 (* lambda1 (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (- (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))) (* -1 (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (+ (* lambda1 (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))) (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* phi2 (+ (* lambda1 (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))) (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* phi2 (+ (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))) (* phi2 (+ (* lambda1 (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (- (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))) (* lambda1 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (+ (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (+ (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (+ (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (+ (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (+ (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (+ (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* phi2 (+ (* -1/2 (* (/ (* R (* lambda2 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (- (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* 1/2 (* (/ (* R (* lambda2 (* phi2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (/ (* R (* lambda2 (* phi2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))) (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (/ (* R (* lambda2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* phi2 (+ (* 1/2 (* (/ (* R (* lambda2 (* phi2 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (/ (* R (* lambda2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) lambda1) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))) (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (+ (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (* 1/2 (* (* phi2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (+ (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* phi2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (+ (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) (* 1/2 (* (* phi2 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (* phi2 (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (+ (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (* phi2 (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (* phi2 (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))))))))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* 1/2 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* phi2 (+ (* -1/8 (* phi2 (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI)))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (* phi2 (+ (* 1/2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))) (* phi2 (+ (* -1/8 (sin (+ (* 1/2 phi1) (* 1/2 (PI))))) (* -1/48 (* phi2 (cos (+ (* 1/2 phi1) (* 1/2 (PI))))))))))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) #s(hole binary64 (+ (* 1/2 phi1) (* 1/2 (PI))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (* -1/2 (* phi2 (cos (- (* 1/2 (PI)) (* 1/2 phi1)))))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (- (* 1/2 (PI)) (* 1/2 phi1)))) (* -1/8 (* phi2 (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (- (* 1/2 (PI)) (* 1/2 phi1)))) (* phi2 (+ (* -1/8 (sin (- (* 1/2 (PI)) (* 1/2 phi1)))) (* 1/48 (* phi2 (cos (- (* 1/2 (PI)) (* 1/2 phi1)))))))))))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (- (* 1/2 (PI)) (* 1/2 phi1)))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (- (+ (* -1/2 phi2) (* 1/2 (PI))) (* 1/2 phi1)))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* 1/2 (* (* R (* phi2 (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (+ (* R (sqrt (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* phi2 (+ (* 1/2 (* (* R (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ (* -1/16 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* -1/48 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))) (+ (* 1/48 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/16 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI))))))))) (* 1/2 (/ (* (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (* 1/2 (* (* R (- (+ (* -1/4 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* 1/2 phi1))))) (* -1/4 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) (* 1/4 (/ (pow (+ (* -1/2 (* (cos (- (* 1/2 (PI)) (* 1/2 phi1))) (sin (+ (* 1/2 phi1) (* 1/2 (PI)))))) (* 1/2 (* (cos (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))) 2) (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1)))))))) (sqrt (/ 1 (* (sin (+ (* 1/2 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* 1/2 phi1))))))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (+ (* 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))))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (+ (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))))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi2))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 phi2)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* phi2 (- (/ phi1 phi2) 1)))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* phi2 (- (/ phi1 phi2) 1)))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* phi2 (+ 1 (/ phi1 phi2))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* 1/2 (+ phi2 phi1)) #s(hole binary64 (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* R phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi2 2)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2))))) (pow phi2 3))) (* 1/2 (/ (* R (* (cos (* 1/2 (+ phi1 phi2))) (* (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (pow (- lambda1 lambda2) 2)))) (pow phi2 2))))))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) #s(hole binary64 (* 1/2 phi2))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1/2 (+ (* 1/2 (/ phi1 phi2)) (* 1/2 (/ (PI) phi2))))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi2 (+ 1 (/ phi1 phi2))))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (* -1/2 phi2))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (* phi2 (- (* 1/2 (/ (PI) phi2)) (+ 1/2 (* 1/2 (/ phi1 phi2))))))) |
#s(approx (* 1/2 (+ phi1 phi2)) #s(hole binary64 (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* R phi2))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* 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))))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 phi2)) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* 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))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi2))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
#s(approx (pow (- phi1 phi2) 1) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) #s(hole binary64 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) #s(hole binary64 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
#s(approx (/ (+ phi2 phi1) 2) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))))) |
#s(approx (+ phi2 phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -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))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) #s(hole binary64 (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) #s(hole binary64 (cos (* 1/2 (- phi1 (* -1 phi2)))))) |
#s(approx (* 1/2 (+ phi2 phi1)) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2)))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2))))) (* 1/2 (/ (* R (* phi1 (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (* (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (pow (- lambda1 lambda2) 2))))) phi2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) #s(hole binary64 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) #s(hole binary64 (+ (* -1 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* (/ (* R lambda2) lambda1) (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) #s(hole binary64 (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) #s(hole binary64 (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ (* 1/2 phi1) (* 1/2 (PI))) phi2)) 1/2))))) |
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) #s(hole binary64 (* -1 (* phi2 (+ 1/2 (* -1 (/ (- (* 1/2 (PI)) (* 1/2 phi1)) phi2))))))) |
#s(approx (* 1/2 (+ phi1 phi2)) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) #s(hole binary64 (* R (sqrt (* (sin (+ (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2))))) (sin (- (* 1/2 (PI)) (* 1/2 (- phi1 (* -1 phi2)))))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* R phi2)))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))))) |
#s(approx (* (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) #s(hole binary64 (* -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))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 phi2))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))))) |
#s(approx (sqrt (+ (* (- phi1 phi2) (- phi1 phi2)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) #s(hole binary64 (* -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))))))) |
| Outputs |
|---|
(*.f64 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(pow.f64 (fma.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (-.f64 phi1 phi2)) (*.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)))) #s(literal 1/2 binary64)) |
(sqrt.f64 (fma.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (-.f64 phi1 phi2)) (*.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))))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(hypot.f64 (-.f64 phi1 phi2) (neg.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (-.f64 phi1 phi2) (fabs.f64 (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) |
(/.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) phi1) (*.f64 (*.f64 phi2 phi2) phi2)) (fma.f64 phi1 phi1 (fma.f64 phi2 phi2 (*.f64 phi1 phi2)))) |
(-.f64 phi1 phi2) |
(exp.f64 (*.f64 (log.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64))) |
(pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) |
(/.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) phi1) (*.f64 (*.f64 phi2 phi2) phi2)) (fma.f64 phi1 phi1 (fma.f64 phi2 phi2 (*.f64 phi1 phi2)))) |
(-.f64 phi1 phi2) |
(exp.f64 (*.f64 (log.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64))) |
phi1 |
phi2 |
#s(literal 1 binary64) |
(*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)) |
(fma.f64 (sin.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(sin.f64 (+.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(cos.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) |
(cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) |
(+.f64 (*.f64 (sin.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(/.f64 (neg.f64 (+.f64 phi2 phi1)) #s(literal -2 binary64)) |
(/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) |
(+.f64 (/.f64 phi2 #s(literal 2 binary64)) (/.f64 phi1 #s(literal 2 binary64))) |
(/.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1)) (-.f64 phi2 phi1)) |
(/.f64 (fma.f64 (*.f64 phi2 phi2) phi2 (*.f64 (*.f64 phi1 phi1) phi1)) (+.f64 (*.f64 phi2 phi2) (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi1)))) |
(+.f64 phi2 phi1) |
#s(literal 2 binary64) |
(/.f64 (-.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (*.f64 (*.f64 lambda2 lambda2) lambda2)) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2)))) |
(-.f64 lambda1 lambda2) |
lambda1 |
lambda2 |
R |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
(*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(*.f64 R lambda2) |
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(cos.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) |
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) |
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)) |
#s(literal 1/2 binary64) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
(*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))) |
#s(literal -1 binary64) |
(*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))) |
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))) (*.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))) |
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) (*.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
(fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) |
(+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) |
(*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) |
(/.f64 (neg.f64 (*.f64 R lambda2)) (neg.f64 lambda1)) |
(/.f64 (*.f64 R lambda2) lambda1) |
(*.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) |
(*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64))) |
(pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)) |
(sqrt.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) |
(exp.f64 (*.f64 (log.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 1/2 binary64))) |
(*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) |
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 2 binary64)) |
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(cos.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) |
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) |
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
(fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))) |
(+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))) |
(/.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (-.f64 phi1 phi2)) |
(/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2)) (+.f64 (*.f64 phi1 phi1) (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi2)))) |
(+.f64 phi1 phi2) |
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64)) |
(/.f64 (PI.f64) #s(literal 2 binary64)) |
(PI.f64) |
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) |
(-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) |
(/.f64 (-.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (*.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) |
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) |
(*.f64 #s(literal 1/2 binary64) (PI.f64)) |
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) |
(*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) |
(*.f64 (hypot.f64 (neg.f64 #s(approx (- phi1 phi2) phi1)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
(pow.f64 (fma.f64 (neg.f64 #s(approx (- phi1 phi2) phi1)) (neg.f64 #s(approx (- phi1 phi2) phi1)) (*.f64 (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64)) |
(sqrt.f64 (fma.f64 (neg.f64 #s(approx (- phi1 phi2) phi1)) (neg.f64 #s(approx (- phi1 phi2) phi1)) (*.f64 (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))))) |
(hypot.f64 (neg.f64 #s(approx (- phi1 phi2) phi1)) (neg.f64 (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (neg.f64 #s(approx (- phi1 phi2) phi1)) (fabs.f64 (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (neg.f64 #s(approx (- phi1 phi2) phi1)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) |
(hypot.f64 (fabs.f64 #s(approx (- phi1 phi2) phi1)) (neg.f64 (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (fabs.f64 #s(approx (- phi1 phi2) phi1)) (fabs.f64 (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (fabs.f64 #s(approx (- phi1 phi2) phi1)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) |
(hypot.f64 #s(approx (- phi1 phi2) phi1) (neg.f64 (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 #s(approx (- phi1 phi2) phi1) (fabs.f64 (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 #s(approx (- phi1 phi2) phi1) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) |
#s(approx (- phi1 phi2) phi1) |
(*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2)) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(cos.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi1))) |
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) |
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) |
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) phi1) #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
(fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) |
(+.f64 (*.f64 #s(literal 1/2 binary64) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) |
(*.f64 (hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) R) |
(pow.f64 (fma.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64)) |
(sqrt.f64 (fma.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (fabs.f64 (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (neg.f64 (-.f64 phi1 phi2)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (neg.f64 (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (fabs.f64 (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (fabs.f64 (-.f64 phi1 phi2)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) |
(hypot.f64 (-.f64 phi1 phi2) (neg.f64 (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (-.f64 phi1 phi2) (fabs.f64 (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2)))) |
(hypot.f64 (-.f64 phi1 phi2) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) |
(*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2)) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) |
(sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx R R) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* R lambda2) (*.f64 R lambda2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) (*.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda1 (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 lambda2 lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (*.f64 R (*.f64 lambda1 (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 lambda2 lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (*.f64 R (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 lambda2 lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) |
#s(approx (/ (* R lambda2) lambda1) (/.f64 (*.f64 R lambda2) lambda1)) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) (*.f64 R (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)) (*.f64 (/.f64 lambda2 lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (*.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)) (*.f64 (/.f64 lambda2 lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (*.f64 #s(literal -1 binary64) (*.f64 R (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)) (*.f64 (/.f64 lambda2 lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (fma.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2)) |
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2)) |
#s(approx lambda1 lambda1) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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))))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) (*.f64 (*.f64 R lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 (*.f64 R lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 R lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 (*.f64 R lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 (*.f64 R lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) lambda1)) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))))) |
#s(approx (- lambda1 lambda2) lambda1) |
#s(approx (- lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 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 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 lambda1)) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 lambda1 lambda1) lambda1)) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda1 lambda1)) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 R lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (*.f64 (*.f64 R lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda2 lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))))) |
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #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 #s(literal -1 binary64) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 R lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 (*.f64 R lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) lambda1) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))) lambda1) (*.f64 (*.f64 R lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) lambda1) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda1) (/.f64 (*.f64 lambda2 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda2 lambda1) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda1) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) |
#s(approx lambda2 lambda2) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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))))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda2 (*.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -3 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda1 (*.f64 (*.f64 lambda2 lambda2) lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)))) |
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #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 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda1) lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda1) lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda1) lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 lambda2 lambda2) lambda2)) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda1) lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 (/.f64 (*.f64 R lambda1) lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 (/.f64 R lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda1 (*.f64 (*.f64 lambda2 lambda2) lambda2)) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda2 lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda2) (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda1 lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)))))) |
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 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 #s(literal -1 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda2) (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 R lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda1) lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) lambda2) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 (*.f64 R lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) lambda2) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) lambda2) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))) lambda2) (*.f64 (*.f64 R lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) lambda2) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 (/.f64 (*.f64 R lambda1) lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda1) lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 R lambda2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 (/.f64 R lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 R lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 R lambda2) (/.f64 (*.f64 lambda1 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 R (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda2 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 lambda1 lambda2) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) lambda2) (*.f64 lambda1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) lambda2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) phi2)) |
#s(approx (- phi1 phi2) (-.f64 phi1 phi2)) |
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) phi2)) |
#s(approx (- phi1 phi2) (-.f64 phi1 phi2)) |
#s(approx phi1 phi1) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (fma.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi1 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) |
#s(approx (/ (+ phi2 phi1) 2) (*.f64 #s(literal 1/2 binary64) phi2)) |
#s(approx (/ (+ phi2 phi1) 2) (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) phi2))) |
#s(approx (+ phi2 phi1) phi2) |
#s(approx (+ phi2 phi1) (+.f64 phi1 phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 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))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) (fma.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 lambda2 (*.f64 phi1 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 lambda2 (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/48 binary64) (*.f64 R (*.f64 lambda2 (*.f64 phi1 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi1 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))) |
#s(approx (* 1/2 (+ phi2 phi1)) (*.f64 #s(literal 1/2 binary64) phi2)) |
#s(approx (* 1/2 (+ phi2 phi1)) (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 R (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 R (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 #s(literal -2 binary64) phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64)))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 phi1 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64)))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (fma.f64 lambda1 (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64)))) (*.f64 phi1 (fma.f64 lambda1 (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64)))) (*.f64 phi1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))) (*.f64 phi1 (fma.f64 lambda1 (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))) (fma.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))) (fma.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))) (fma.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64)))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (*.f64 phi1 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (*.f64 phi1 (-.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (fma.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 phi1 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/48 binary64) (*.f64 phi1 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) (fma.f64 #s(literal 1/2 binary64) phi1 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) |
#s(approx (+ phi1 phi2) phi2) |
#s(approx (+ phi1 phi2) (+.f64 phi1 phi2)) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi1 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi1 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) phi2))) |
#s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) |
#s(approx (* 1/2 (+ phi1 phi2)) (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) phi2))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64)))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (fma.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (fma.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi1 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi2 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 phi1 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal -1/48 binary64) (*.f64 phi1 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R phi1)) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (*.f64 phi1 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) phi1) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 phi1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (*.f64 phi1 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) |
#s(approx (- phi1 phi2) phi1) |
#s(approx (- phi1 phi2) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1))))) |
#s(approx (- phi1 phi2) phi1) |
#s(approx (- phi1 phi2) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (/ (+ phi2 phi1) 2) (*.f64 #s(literal 1/2 binary64) phi1)) |
#s(approx (/ (+ phi2 phi1) 2) (*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1))))) |
#s(approx (+ phi2 phi1) phi1) |
#s(approx (+ phi2 phi1) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (*.f64 phi1 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (* 1/2 (+ phi2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) |
#s(approx (* 1/2 (+ phi2 phi1)) (*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi1)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (*.f64 phi1 phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (*.f64 (*.f64 phi1 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (*.f64 phi1 phi1)))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) phi1)) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) (*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))) |
#s(approx (+ phi1 phi2) phi1) |
#s(approx (+ phi1 phi2) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) (*.f64 #s(literal -1/2 binary64) phi1)) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) (*.f64 phi1 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1)))))) |
#s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)) |
#s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R phi1)) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 phi1 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (*.f64 phi1 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) phi1) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 phi1) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (*.f64 phi1 phi1) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) phi1)) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R phi1))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) phi1))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) phi1)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) phi1))) phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi1))) phi1))) phi1)))))) |
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64))))) |
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (/ (+ phi2 phi1) 2) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1)) #s(literal 1/2 binary64))))) |
#s(approx (+ phi2 phi1) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)) #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 #s(literal -1 binary64) (*.f64 R phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) phi1))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (* 1/2 (+ phi2 phi1)) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1)) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 R phi1))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) phi1))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) #s(literal 1/2 binary64))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) #s(literal 1/2 binary64)))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) #s(literal 1/2 binary64))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) #s(literal 1/2 binary64)))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) #s(literal 1/2 binary64))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) #s(literal 1/2 binary64))))) |
#s(approx (+ phi1 phi2) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)) #s(literal 1 binary64))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) phi2) phi1))))))) |
#s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1)) #s(literal 1/2 binary64))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R phi1))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi2) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) phi1))) phi1) (*.f64 R phi2)) phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) phi1)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) phi1))) phi1)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi1))) phi1))) phi1)))))) |
#s(approx (sin (+ (* 1/2 phi1) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi1)))) |
#s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (- phi1 phi2) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))) |
#s(approx (- phi1 phi2) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))) |
#s(approx phi2 phi2) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (fma.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2)) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 lambda1 lambda2))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #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 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 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))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #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))))) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) (fma.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 lambda2 (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 lambda2 (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) (fma.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/48 binary64) (*.f64 R (*.f64 lambda2 (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 R (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (fma.f64 R (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 #s(literal -2 binary64) phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64)))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 phi2 (fma.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64)))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (fma.f64 lambda1 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64)))) (*.f64 phi2 (fma.f64 lambda1 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64)))) (*.f64 phi2 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))) (*.f64 phi2 (fma.f64 lambda1 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))) (fma.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))) (fma.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))) (fma.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))))))))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64)))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (*.f64 phi2 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (*.f64 phi2 (-.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 R (*.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))))) lambda1) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) (fma.f64 (sqrt.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (sqrt.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (fma.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 phi2 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/48 binary64) (*.f64 phi2 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 #s(literal 1/48 binary64) (*.f64 phi2 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) phi1))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64)))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (fma.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (fma.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (pow.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (fma.f64 R (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (*.f64 phi2 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (+.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -2 binary64) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (pow.f64 (pow.f64 (fma.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R phi2)) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (*.f64 phi2 phi2) phi2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) phi2) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 phi2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (*.f64 phi2 phi2) phi2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))))) |
#s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) |
#s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) |
#s(approx (/ (+ phi2 phi1) 2) (*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2))))) |
#s(approx (+ phi2 phi1) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))) |
#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 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (*.f64 phi2 phi2) phi2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))))) |
#s(approx (* 1/2 (+ phi2 phi1)) (*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (*.f64 phi2 phi2))))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (*.f64 (*.f64 phi2 phi2) phi2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (*.f64 phi2 phi2)))))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) phi2)) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) (*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)))))) |
#s(approx (+ phi1 phi2) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) (*.f64 #s(literal -1/2 binary64) phi2)) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) (*.f64 phi2 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)))))) |
#s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 R phi2)) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi2 phi2))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 phi2 (+.f64 R (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (*.f64 phi2 phi2) phi2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 phi2 phi2)))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) phi2) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 phi1 phi2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (*.f64 phi2 phi2) phi2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 phi2 phi2)))))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R phi2))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) phi2))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) phi2)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (*.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) phi2))) phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi2))) phi2))) phi2)))))) |
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)))))) |
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)))))) |
#s(approx (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) |
#s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (/ (+ phi2 phi1) 2) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) |
#s(approx (+ phi2 phi1) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)) #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 #s(literal -1 binary64) (*.f64 R phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) phi2))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (* (* R lambda2) (cos (* 1/2 (+ phi2 phi1)))) (*.f64 R (*.f64 lambda2 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) |
#s(approx (cos (* 1/2 (+ phi2 phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64))))) |
#s(approx (* 1/2 (+ phi2 phi1)) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 R phi2))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) phi2))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (* -1 (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 1/2 binary64))))))) |
#s(approx (* lambda1 (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)))) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 1/2 binary64)))))) |
#s(approx (+ (* -1 (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 1/2 binary64))))) |
#s(approx (* (/ (* R lambda2) lambda1) (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 1/2 binary64)))) |
#s(approx (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 1/2 binary64))) |
#s(approx (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))) |
#s(approx (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) |
#s(approx (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) #s(literal 1/2 binary64))))) |
#s(approx (+ phi1 phi2) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)) #s(literal 1 binary64))))) |
#s(approx (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) |
#s(approx (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) phi1) phi2))))))) |
#s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) |
#s(approx (* R (pow (* (sin (+ (* 1/2 (+ phi1 phi2)) (/ (PI) 2))) (sin (- (* 1/2 (PI)) (* 1/2 (+ phi1 phi2))))) 1/2)) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 R phi2))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 R phi1) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (* (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) R) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 R (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) phi2))) phi2) (*.f64 R phi1)) phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) phi2)) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (*.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) phi2))) phi2)))))) |
#s(approx (sqrt (+ (* (pow (- phi1 phi2) 1) (pow (- phi1 phi2) 1)) (* (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2)) (* (cos (/ (+ phi2 phi1) 2)) (- lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) phi2))) phi2))) phi2)))))) |
Compiled 94 632 to 4 559 computations (95.2% saved)
11 alts after pruning (1 fresh and 10 done)
| Pruned | Kept | Total | |
|---|---|---|---|
| New | 826 | 0 | 826 |
| Fresh | 0 | 1 | 1 |
| Picked | 0 | 5 | 5 |
| Done | 0 | 5 | 5 |
| Total | 826 | 11 | 837 |
| Status | Accuracy | Program |
|---|---|---|
| ✓ | 83.6% | (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (sin.f64 (+.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) R) |
| 83.3% | (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (sin.f64 #s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) R) | |
| ✓ | 96.0% | (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
| ✓ | 90.4% | (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
| ✓ | 83.3% | (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) R) |
| ✓ | 62.4% | (*.f64 (hypot.f64 #s(approx (- phi1 phi2) phi1) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
| ✓ | 57.7% | (*.f64 R (sqrt.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
| ✓ | 48.1% | (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) |
| ✓ | 24.1% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))) |
| ✓ | 18.2% | #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
| ✓ | 24.8% | #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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) |
Compiled 1 303 to 449 computations (65.5% saved)
| Inputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (fma.f64 (/.f64 (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #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 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 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 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))) |
(*.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 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(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 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
(*.f64 (hypot.f64 #s(approx (- phi1 phi2) phi1) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (sin.f64 #s(approx (+ (/ (+ phi2 phi1) 2) (/ (PI) 2)) (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (sin.f64 (+.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 lambda1 lambda2))) R) |
| Outputs |
|---|
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
9 calls:
| 45.0ms | lambda2 |
| 20.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))))) |
| 6.0ms | R |
| 6.0ms | lambda1 |
| 6.0ms | (-.f64 lambda1 lambda2) |
| Accuracy | Segments | Branch |
|---|---|---|
| 96.0% | 1 | (-.f64 lambda1 lambda2) |
| 96.0% | 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))) |
| 96.0% | 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)))) |
| 96.0% | 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))))) |
| 96.0% | 1 | R |
| 96.0% | 1 | lambda1 |
| 96.0% | 1 | lambda2 |
| 96.0% | 1 | phi1 |
| 96.0% | 1 | phi2 |
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 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (fma.f64 (/.f64 (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #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 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 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 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))) |
(*.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 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(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 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
(*.f64 (hypot.f64 #s(approx (- phi1 phi2) phi1) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
| Outputs |
|---|
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
9 calls:
| 18.0ms | (-.f64 lambda1 lambda2) |
| 8.0ms | lambda2 |
| 5.0ms | phi1 |
| 5.0ms | lambda1 |
| 5.0ms | phi2 |
| Accuracy | Segments | Branch |
|---|---|---|
| 96.0% | 2 | phi2 |
| 90.4% | 1 | (-.f64 lambda1 lambda2) |
| 90.4% | 1 | R |
| 90.4% | 1 | lambda1 |
| 90.4% | 1 | lambda2 |
| 92.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))) |
| 92.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)))) |
| 92.2% | 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))))) |
| 96.0% | 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 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (fma.f64 (/.f64 (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #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 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 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 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))) |
(*.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 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(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 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
(*.f64 (hypot.f64 #s(approx (- phi1 phi2) phi1) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
| Outputs |
|---|
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
9 calls:
| 7.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))))) |
| 6.0ms | lambda1 |
| 5.0ms | phi1 |
| 5.0ms | phi2 |
| 5.0ms | R |
| Accuracy | Segments | Branch |
|---|---|---|
| 90.9% | 2 | (-.f64 lambda1 lambda2) |
| 88.3% | 1 | R |
| 88.3% | 1 | lambda1 |
| 88.3% | 1 | lambda2 |
| 88.3% | 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))) |
| 88.3% | 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)))) |
| 88.3% | 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))))) |
| 90.8% | 2 | phi2 |
| 91.1% | 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 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (fma.f64 (/.f64 (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #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 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 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 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))) |
(*.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 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(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 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
(*.f64 (hypot.f64 #s(approx (- phi1 phi2) phi1) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
| Outputs |
|---|
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
1 calls:
| 6.0ms | phi1 |
| Accuracy | Segments | Branch |
|---|---|---|
| 91.0% | 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 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (fma.f64 (/.f64 (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #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 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 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 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))) |
(*.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 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(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 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
(*.f64 (hypot.f64 #s(approx (- phi1 phi2) phi1) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
| Outputs |
|---|
(*.f64 (hypot.f64 #s(approx (- phi1 phi2) phi1) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
(*.f64 (hypot.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
3 calls:
| 4.0ms | phi2 |
| 4.0ms | phi1 |
| 4.0ms | (-.f64 lambda1 lambda2) |
| Accuracy | Segments | Branch |
|---|---|---|
| 90.8% | 2 | phi2 |
| 88.3% | 1 | (-.f64 lambda1 lambda2) |
| 90.6% | 2 | phi1 |
Compiled 5 to 16 computations (-220% saved)
| Inputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (fma.f64 (/.f64 (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #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 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 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 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))) |
(*.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 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(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 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
(*.f64 (hypot.f64 #s(approx (- phi1 phi2) phi1) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
| Outputs |
|---|
(*.f64 R (sqrt.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
(*.f64 (hypot.f64 #s(approx (- phi1 phi2) phi1) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) |
9 calls:
| 5.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)))) |
| 5.0ms | lambda1 |
| 4.0ms | phi2 |
| 4.0ms | lambda2 |
| 4.0ms | (-.f64 lambda1 lambda2) |
| Accuracy | Segments | Branch |
|---|---|---|
| 70.2% | 2 | (-.f64 lambda1 lambda2) |
| 72.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))) |
| 72.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)))) |
| 71.1% | 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))))) |
| 65.6% | 2 | lambda2 |
| 62.4% | 1 | lambda1 |
| 69.7% | 2 | R |
| 66.6% | 2 | phi1 |
| 70.4% | 2 | phi2 |
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 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (fma.f64 (/.f64 (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #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 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 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 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))) |
(*.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 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(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 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) |
| Outputs |
|---|
(*.f64 R (sqrt.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) |
9 calls:
| 4.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))) |
| 4.0ms | phi1 |
| 4.0ms | phi2 |
| 4.0ms | lambda1 |
| 4.0ms | (-.f64 lambda1 lambda2) |
| Accuracy | Segments | Branch |
|---|---|---|
| 59.6% | 2 | lambda1 |
| 62.1% | 2 | lambda2 |
| 57.7% | 1 | phi1 |
| 60.0% | 2 | R |
| 61.5% | 3 | (-.f64 lambda1 lambda2) |
| 61.7% | 3 | phi2 |
| 57.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))))) |
| 57.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))) |
| 57.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)))) |
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 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (fma.f64 (/.f64 (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #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 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 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 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))) |
(*.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 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (+.f64 (neg.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(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))))) |
#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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) |
1 calls:
| 4.0ms | lambda2 |
| Accuracy | Segments | Branch |
|---|---|---|
| 62.1% | 2 | lambda2 |
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 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (fma.f64 (/.f64 (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (sin (+ (neg (/ (+ phi2 phi1) 2)) (/ (PI) 2)))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 R lambda2) lambda1) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 1/2 binary64))) (*.f64 R (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #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 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 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 (fma.f64 (/.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (neg.f64 lambda1)) #s(literal -1 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda1))) |
| Outputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) |
9 calls:
| 4.0ms | phi1 |
| 3.0ms | lambda2 |
| 3.0ms | phi2 |
| 3.0ms | R |
| 3.0ms | lambda1 |
| Accuracy | Segments | Branch |
|---|---|---|
| 39.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))) |
| 39.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)))) |
| 39.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))))) |
| 37.0% | 1 | phi1 |
| 43.1% | 2 | lambda1 |
| 38.9% | 2 | (-.f64 lambda1 lambda2) |
| 39.0% | 2 | R |
| 37.0% | 1 | phi2 |
| 42.8% | 2 | 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 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (fma.f64 (/.f64 (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
| Outputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (fma.f64 (/.f64 (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
2 calls:
| 2.0ms | lambda2 |
| 2.0ms | lambda1 |
| Accuracy | Segments | Branch |
|---|---|---|
| 40.1% | 2 | lambda2 |
| 37.0% | 1 | lambda1 |
Compiled 2 to 10 computations (-400% saved)
Total -2.7b remaining (-6.8%)
Threshold costs -2.7b (-6.8%)
| Inputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
| Outputs |
|---|
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
6 calls:
| 2.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)))) |
| 1.0ms | R |
| 1.0ms | (-.f64 lambda1 lambda2) |
| 1.0ms | lambda2 |
| 1.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))) |
| Accuracy | Segments | Branch |
|---|---|---|
| 37.0% | 1 | (-.f64 lambda1 lambda2) |
| 37.0% | 1 | R |
| 37.0% | 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))))) |
| 37.0% | 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))) |
| 37.0% | 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)))) |
| 37.0% | 1 | lambda2 |
Compiled 96 to 64 computations (33.3% saved)
| 1× | binary-search |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 27.0ms | -1921763595805.6106 | -1048922130.9033906 |
| 15.0ms | 57× | 1 | valid |
| 7.0ms | 71× | 0 | valid |
Compiled 387 to 326 computations (15.8% saved)
ival-cos: 4.0ms (24.1% of total)ival-hypot: 3.0ms (18% of total)ival-mult: 3.0ms (18% of total)adjust: 2.0ms (12% of total)ival-add: 1.0ms (6% of total)ival-div: 1.0ms (6% of total)ival-sub: 1.0ms (6% 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 |
|---|---|---|
| 29.0ms | -2.5397156498754455e+172 | -1.0619310703627925e+163 |
| 13.0ms | 47× | 1 | valid |
| 9.0ms | 97× | 0 | valid |
Compiled 485 to 418 computations (13.8% saved)
ival-cos: 5.0ms (29.6% of total)ival-hypot: 3.0ms (17.8% of total)adjust: 2.0ms (11.8% of total)ival-mult: 2.0ms (11.8% of total)ival-sub: 2.0ms (11.8% of total)ival-add: 1.0ms (5.9% of total)ival-div: 1.0ms (5.9% 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 | -2.5397156498754455e+172 | -1.0619310703627925e+163 |
Compiled 530 to 454 computations (14.3% saved)
| 1× | binary-search |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 27.0ms | 4.762271288108551e-128 | 2.1166840636743137e-117 |
| 14.0ms | 137× | 0 | valid |
| 5.0ms | 23× | 1 | valid |
Compiled 535 to 452 computations (15.5% saved)
ival-hypot: 4.0ms (29.6% of total)ival-sub: 2.0ms (14.8% of total)ival-cos: 2.0ms (14.8% of total)ival-mult: 2.0ms (14.8% of total)ival-add: 1.0ms (7.4% of total)ival-div: 1.0ms (7.4% of total)adjust: 1.0ms (7.4% of total)ival-assert: 0.0ms (0% of total)ival-true: 0.0ms (0% of total)exact: 0.0ms (0% of total)| 1× | left-value |
| Time | Left | Right |
|---|---|---|
| 0.0ms | 1.4320574558391828e+153 | +inf |
Compiled 35 to 25 computations (28.6% saved)
| 1× | binary-search |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 18.0ms | 6.818264255047089e+154 | 4.360680736364985e+155 |
| 7.0ms | 26× | 1 | valid |
| 6.0ms | 70× | 0 | valid |
Compiled 455 to 280 computations (38.5% saved)
ival-add: 2.0ms (19.9% of total)ival-hypot: 2.0ms (19.9% of total)ival-cos: 2.0ms (19.9% of total)ival-mult: 2.0ms (19.9% of total)ival-div: 1.0ms (10% of total)adjust: 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× | binary-search |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 1.0ms | 6.818264255047089e+154 | 4.360680736364985e+155 |
Compiled 485 to 280 computations (42.3% saved)
| 1× | binary-search |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 10.0ms | -4.3080280587945045e-144 | -2.2172902674232713e-144 |
| 5.0ms | 56× | 0 | valid |
| 2.0ms | 8× | 1 | valid |
Compiled 559 to 302 computations (46% saved)
ival-hypot: 1.0ms (21.3% of total)ival-sub: 1.0ms (21.3% of total)ival-cos: 1.0ms (21.3% of total)ival-mult: 1.0ms (21.3% of total)ival-add: 0.0ms (0% of total)ival-div: 0.0ms (0% of total)adjust: 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 |
|---|---|---|
| 8.0ms | 3.342571555476802e+262 | 3.833201057879535e+262 |
| 5.0ms | 18× | 1 | valid |
| 1.0ms | 14× | 0 | valid |
Compiled 341 to 180 computations (47.2% saved)
adjust: 1.0ms (24.2% of total)ival-hypot: 1.0ms (24.2% of total)ival-cos: 1.0ms (24.2% of total)ival-mult: 1.0ms (24.2% 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)Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 136 | 848 |
| 1 | 184 | 848 |
| 2 | 309 | 848 |
| 3 | 652 | 848 |
| 4 | 1681 | 848 |
| 5 | 6398 | 848 |
| 1× | node limit |
| Inputs |
|---|
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(if (<=.f64 phi1 #s(literal -900000000000 binary64)) (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) (*.f64 (hypot.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R)) |
(if (<=.f64 phi1 #s(literal -44999999999999998801582541477025908457651413828854707885189888260986092889594788440368827639101935243667223851493128818974602453386080142578698094227171889876303872 binary64)) (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) (*.f64 (hypot.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R)) |
(if (<=.f64 phi1 #s(literal -44999999999999998801582541477025908457651413828854707885189888260986092889594788440368827639101935243667223851493128818974602453386080142578698094227171889876303872 binary64)) (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) R) (*.f64 (hypot.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R)) |
(if (<=.f64 phi2 #s(literal 8722064691547283/23258839177459420497578361852416145099316523541994177929007686373780457219628733546438113622840434097944400691400517693873107252115668992 binary64)) (*.f64 (hypot.f64 #s(approx (- phi1 phi2) phi1) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) (*.f64 (hypot.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R)) |
(if (<=.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)))) #s(literal 1999999999999999999466806008246307489711078038236873372571680376048739359044847523345839519129134316887338757648057420040785188188258060440266031719514112 binary64)) (*.f64 R (sqrt.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (hypot.f64 #s(approx (- phi1 phi2) phi1) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R)) |
(if (<=.f64 lambda2 #s(literal 320000000000000011823214620178632493113893754554966030461528913668817397099111027110928419510573066478288376117991445354058784107186348933473478158344781824 binary64)) (*.f64 R (sqrt.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) |
(if (<=.f64 lambda2 #s(literal 320000000000000011823214620178632493113893754554966030461528913668817397099111027110928419510573066478288376117991445354058784107186348933473478158344781824 binary64)) (*.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 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) |
(if (<=.f64 lambda1 #s(literal -4744948142682277/1757388200993436087035366604564836663620975436836686184804982645551499054949799949343375268009332366074187855716219099657503228927927460816018951242525454630912 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) #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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) |
(if (<=.f64 lambda2 #s(literal 35999999999999999183838234226059790151951283376050162015059658950434352231679597591350645962346319708843400896976440279430181034799003795865507737755190859602546369569062080061236190417677330039555933480092178728697457229018980017206308012300144880632109092306944 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (fma.f64 (/.f64 (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
| Outputs |
|---|
(*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) |
(if (<=.f64 phi1 #s(literal -900000000000 binary64)) (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 #s(approx (+ phi2 phi1) phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R) (*.f64 (hypot.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R)) |
(if (<=.f64 phi1 #s(literal -44999999999999998801582541477025908457651413828854707885189888260986092889594788440368827639101935243667223851493128818974602453386080142578698094227171889876303872 binary64)) (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) (*.f64 (hypot.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R)) |
(if (<=.f64 phi1 #s(literal -44999999999999998801582541477025908457651413828854707885189888260986092889594788440368827639101935243667223851493128818974602453386080142578698094227171889876303872 binary64)) (*.f64 (hypot.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 #s(approx (+ (* 1/2 phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 lambda1 lambda2))) R) (*.f64 (hypot.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R)) |
(if (<=.f64 phi2 #s(literal 8722064691547283/23258839177459420497578361852416145099316523541994177929007686373780457219628733546438113622840434097944400691400517693873107252115668992 binary64)) (*.f64 (hypot.f64 #s(approx (- phi1 phi2) phi1) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R) (*.f64 (hypot.f64 #s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) R)) |
(if (<=.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)))) #s(literal 1999999999999999999466806008246307489711078038236873372571680376048739359044847523345839519129134316887338757648057420040785188188258060440266031719514112 binary64)) (*.f64 R (sqrt.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (hypot.f64 #s(approx (- phi1 phi2) phi1) (*.f64 #s(approx (cos (/ (+ phi2 phi1) 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 lambda1 lambda2))) R)) |
(if (<=.f64 lambda2 #s(literal 320000000000000011823214620178632493113893754554966030461528913668817397099111027110928419510573066478288376117991445354058784107186348933473478158344781824 binary64)) (*.f64 R (sqrt.f64 (fma.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64)))) (pow.f64 (-.f64 phi1 phi2) #s(literal 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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) |
(if (<=.f64 lambda2 #s(literal 320000000000000011823214620178632493113893754554966030461528913668817397099111027110928419510573066478288376117991445354058784107186348933473478158344781824 binary64)) (*.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 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) |
(if (<=.f64 lambda1 #s(literal -4744948142682277/1757388200993436087035366604564836663620975436836686184804982645551499054949799949343375268009332366074187855716219099657503228927927460816018951242525454630912 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) #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 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) |
(if (<=.f64 lambda2 #s(literal 35999999999999999183838234226059790151951283376050162015059658950434352231679597591350645962346319708843400896976440279430181034799003795865507737755190859602546369569062080061236190417677330039555933480092178728697457229018980017206308012300144880632109092306944 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda2) (fma.f64 (/.f64 (*.f64 (*.f64 R lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) lambda2) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R))))) |
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(literal -1 binary64) lambda1) (fma.f64 (/.f64 (fma.f64 (*.f64 R lambda2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 (*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) R) lambda1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) #s(approx (+ phi2 phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1) #s(literal -1 binary64) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) R)))) |
| 1× | fuel |
Compiled 852 to 138 computations (83.8% saved)
(sort lambda1 lambda2)
(negabs R)
Compiled 2 152 to 558 computations (74.1% saved)
Loading profile data...